>Спасайте !!!
> Допустим есть текст
>q1,q2,"g1 g2,r1 r2",e1
>что бы получить каждый эелемнт в массива делаю так
>@all=split(/,/$_);
>дале в цикле монипулирую данными через переменную $all[$x]
>Вот мой вопрос как считать строку таким образом чтобы содержимое кавычек считалось
>как один эелемент а запятая в ковычках игнорировалась?

Воспользуйся модулем соответсвующим http://search.cpan.org/~tmtm/Text-CSV-Simple-1.00/lib/Text/C...

или аналогичным.

В общем случае такой парсинг нетривиален.

Вот хорошая книжка (есть на русск), там этому делу нлвав посвящена:

http://www.oreilly.com/catalog/regex/

>Спасайте !!!
> Допустим есть текст
>q1,q2,"g1 g2,r1 r2",e1
>что бы получить каждый эелемнт в массива делаю так
>@all=split(/,/$_);
>дале в цикле монипулирую данными через переменную $all[$x]
>Вот мой вопрос как считать строку таким образом чтобы содержимое кавычек считалось
>как один эелемент а запятая в ковычках игнорировалась?

Если есть желание, напиши мне на почту я скину тебе свой код.

ps: стандартный CSV::Simple не всегда разбирает нормально :(.

> Допустим есть текст
>q1,q2,"g1 g2,r1 r2",e1
>что бы получить каждый эелемнт в массива делаю так
>@all=split(/,/$_);
>Вот мой вопрос как считать строку таким образом чтобы содержимое кавычек считалось
>как один эелемент а запятая в ковычках игнорировалась?

Можно попробовать заставить заниматься разбором сам perl
chop; $_='@all=('.$_.')'; eval