more fun with regex

nipper

I am trying to extract values (Something(1-9))

works great when they are on different lines, but when they are on the same line, I only
get the last one,

Can someone point me in the correct direction ?

#!C:\iw-home/iw-perl/bin/iwperl
#
#
#
$txt= <<EOF;
Something1="blah1 blah2 blah3" Something2="blah4 blah5 blah6" Something3="blah7 blah8 blah9"
EOF

my (@data) = ($txt=~ m|.*Something[1-9]=\"(.*?)\"|g);

foreach $code (@data){ $output.=$code." ";}

print "$output\n";

produces:
blah7 blah8 blah9

#!C:\iw-home/iw-perl/bin/iwperl
#
#
#
$txt= <<EOF;
Something1="blah1 blah2 blah3"
Something2="blah4 blah5 blah6"
Something3="blah7 blah8 blah9"
EOF

my (@data) = ($txt=~ m|.*Something[1-9]=\"(.*?)\"|g);

foreach $code (@data){ $output.=$code." ";}

print "$output\n";

produces:

blah1 blah2 blah3 blah4 blah5 blah6 blah7 blah8 blah9

Adam Stoller

Try my (@data) = ($txt =~ m|.*?Something[1-9]=\"(.*?)\"|g);The ? after the .* tells the regex not to be greedy - otherwise it finds the last occurrence of the matching string.

--fish
Senior Consultant, Quotient Inc.
http://www.quotient-inc.com