One possible way:
Please see perlre, perlrequick, and perlretut.c:\@Work\Perl>perl -wMstrict -MData::Dump -le "my $s = q{name1=value1 name2=' value2=0' name3=value3}; ;; my $name = qr{ \w+ }xms; my $plain = qr{ \w+ }xms; my $s_quoted = qr{ ' [^\x27]* ' }xms; ;; my %h = $s =~ m{ ($name) \s* = \s* ($s_quoted | $plain) \s* }xmsg; dd \%h; " { name1 => "value1", name2 => "' value2=0'", name3 => "value3" }
Updates:
If you don't have 5.10, let me know. There's a simple alternative.c:\@Work\Perl>perl -wMstrict -MData::Dump -le "use 5.010; ;; my $s = q{name1=value1 name2=' value2=0' name3=value3}; ;; my $name = qr{ \w+ }xms; my $plain = qr{ \w+ }xms; my $s_quoted = qr{ [^\x27]* }xms; ;; my %h = $s =~ m{ ($name) \s* = \s* (?| ' ($s_quoted) ' | ($plain)) \s +* }xmsg; dd \%h; " { name1 => "value1", name2 => " value2=0", name3 => "value3" }
Give a man a fish: <%-(-(-(-<
In reply to Re: parse string containing space
by AnomalousMonk
in thread parse string containing space
by mtovey
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |