LanX has asked for the wisdom of the Perl Monks concerning the following question:
Hi
BTW: couldn't find an array holding the values of $1,$2,... in the perldocs !?!
I was wondering about the best way to get the structure of a list of matches.
i.e. /($re1)($re2)/g produces a list of paired matches but when processing with map or grep you need a counter to know which item you got
grep { } $str=~/($re1)($re2)/g
Thats not very scalable...
Does anybody know a nifty way to get a list of arrays returned, like in
do {my @a; push @a, [$1,$2] while $str=~/($re1)($re2)/g; @a }
???
some code examples:
DB<16> $a=join "",0..3 DB<17> x $a=~/(.)(.)/g 0 0 1 1 2 2 3 3 DB<18> x do {my @a; push @a, [$1,$2] while $a=~/(.)(.)/g; @a } 0 ARRAY(0x8ed1a18) 0 0 1 1 1 ARRAY(0x8ed1ce8) 0 2 1 3
Cheers Rolf
Back to
Seekers of Perl Wisdom