parse string

[Vincent]

hi,

can anyone help ?

$text=qq(a11.CLEC_ID ACNA,
count(1) PR402RSSSDEN,
sum(Decode(a11.CMPINTV-a11.APPINTV,0,a11.COMP_MAC_DY_CNT,a11.LEAST_DELAY_ DAYS))
PR402RSSSNUM,
(STDDEV(Decode(CMPINTVa11.APPINTV,0,COMP_MAC_DY_CN T,LEAST_DELAY_DAYS))
* 1.0) PR402RSSSSD)

how can i parse this comma-separated string
but should not split if comma is inside parentheses() ?

thanks for help

vincent

[Gunnar Hjalmarsson]

Vincent wrote:

$text=qq(a11.CLEC_ID ACNA,
count(1) PR402RSSSDEN,
sum(Decode(a11.CMPINTV-a11.APPINTV,0,a11.COMP_MAC_DY_CNT,a11.LEAST_DELAY_ DAYS))
PR402RSSSNUM,
(STDDEV(Decode(CMPINTVa11.APPINTV,0,COMP_MAC_DY_CN T,LEAST_DELAY_DAYS))
* 1.0) PR402RSSSSD)

how can i parse this comma-separated string
but should not split if comma is inside parentheses() ?

One approach is to replace those commas you want to split on with some
unique character, and then split:

$text =~ s/(\([^\)]+\))|,\s*/$1 or "\0"/eg;
my @text = split /\0/, $text;

But don't forget to study the applicable Q/A in the Perl FAQ:

perldoc -q "except when inside"

--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl

[Gunnar Hjalmarsson]

Gunnar Hjalmarsson wrote:

One approach is to replace those commas you want to split on with
some unique character, and then split:

$text =~ s/(\([^\)]+\))|,\s*/$1 or "\0"/eg;
my @text = split /\0/, $text;

It just struck me that this method isn't reliable, since there are
nested parentheses. You'd better go for a module. (See the FAQ.)

--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl