Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re^2: Parsing "=" separated output

by blindluke (Scribe)
on Aug 03, 2011 at 07:43 UTC ( #918189=note: print w/ replies, xml ) Need Help??


in reply to Re: Parsing "=" separated output
in thread Parsing "=" separated output

Thanks!

I've modified the regexp a bit, so that the concatenation is no longer necessary

while ( $string =~ m/\s+([^\s]+?)=(.*?)(?=\s[^\s]+=|$)/g )

Works quite well.

Regards,
Luke


Comment on Re^2: Parsing "=" separated output
Download Code
Re^3: Parsing "=" separated output
by Utilitarian (Vicar) on Aug 03, 2011 at 08:16 UTC
    Same idea but taking advantage of the wantarray response of a match and commenting the regex
    ~/$ perl -e ' $string="sometrash key1=value0 value1, value2 key2=value3 key3=value4" +; %hash = $string =~/ (\w+) #capture the key name = # separated from the value by an equals (.+?) # and then the value, non-greediness prevents running + into the subsequent values (?=(?:\s\w+=|$)) # finally we look ahead to ensure that what follows i +s a space and a "key=" pattern, or else the end end of the string /xg; #Match globally and allow comments in the regex for m +aintainability # And check use Data::Dumper;print Dumper(\%hash); ' $VAR1 = { 'key2' => 'value3', 'key1' => 'value0 value1, value2', 'key3' => 'value4' };
    print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (14)
As of 2014-08-22 15:43 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (159 votes), past polls