Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re: Substituting a comma only when it is preceded and followed by a bracket (closure)

by tye (Cardinal)
on Nov 02, 2011 at 17:22 UTC ( #935447=note: print w/ replies, xml ) Need Help??


in reply to Substituting a comma only when it is preceded and followed by a bracket

my $l= ''; $s =~ s{([(,)])}{ my $n= ',' eq $1 && '(' eq $l ? ';' : $1; $l= $1 if ',' ne $1; $n }ge

- tye        


Comment on Re: Substituting a comma only when it is preceded and followed by a bracket (closure)
Download Code
Re^2: Substituting a comma only when it is preceded and followed by a bracket (closure)
by choroba (Abbot) on Nov 02, 2011 at 17:26 UTC
    Does not work for nested parentheses *ducks*
    $s='aa, aaa, aaaa, aaa, (aaa, aaa, aaa, a), aaa, aaa, (aaa, aaa, (aaa, + aa), aaa, aaa), aaa, aaa';

      Ah, but I guess it beats BrowserUk's solution because it must be clearer that it doesn't work for nested parens else you wouldn't have left his un-replied-to for 22 minutes but replied to mine in 5 minutes when both fail for that same case. q-:

      - tye        

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://935447]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (6)
As of 2014-09-16 04:33 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite cookbook is:










    Results (156 votes), past polls