swiftone has asked for the wisdom of the Perl Monks concerning the following question:
I'm writing a parser for a specified format (so I'm stuck with the format). I have no doubt this will lead to many questions, but here's my first:
Given a string of comma separated elements, where an element can contain a function, and functions can have commas in their arguments, how do I best grab the elements?
After looking over Merlyn's nested C comment parser and The CSV parser from Mastering Regex, I have a working solution. I'm not convinced, however, that this is the easiest/best way to do it. Comments?
#!/usr/bin/perl $teststr="blah,blah(blah,blah(blah,blah(blah))),blah"; #This is three elements: # blah # blah(blah,blah(blah,blah(blah))) # blah # I don't have to worry about escaped parens, the file format forbids +it. foreach (&parse_comma($teststr)){ print "$_\n"; #This just proves that it works } sub parse_comma{ my $commastr=shift; my @tags; my $count=0; my $carrystr=""; foreach (split(/,/, $commastr)){ $_=$carrystr.",".$_ if $carrystr; $count=s/\(/(/g; $count-=s/\)/)/g; if($count){ $carrystr=$_; }else{ $carrystr=""; push @tags, $_; } } return @tags; }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Balancing Parens
by lhoward (Vicar) on Jun 01, 2000 at 22:42 UTC | |
by merlyn (Sage) on Aug 17, 2000 at 10:48 UTC | |
by swiftone (Curate) on Jun 01, 2000 at 23:53 UTC | |
by Anonymous Monk on Jun 02, 2000 at 12:43 UTC | |
by perlcgi (Hermit) on Jun 02, 2000 at 12:46 UTC | |
Re: Balancing Parens
by Anonymous Monk on Aug 17, 2000 at 10:12 UTC | |
Re: Balancing Parens
by KM (Priest) on Jun 01, 2000 at 22:25 UTC | |
by swiftone (Curate) on Jun 01, 2000 at 22:28 UTC | |
by KM (Priest) on Jun 01, 2000 at 22:31 UTC | |
by swiftone (Curate) on Jun 01, 2000 at 22:39 UTC | |
by Anonymous Monk on Aug 17, 2000 at 10:20 UTC |
Back to
Seekers of Perl Wisdom