global regex returning a list of arrays?

LanX has asked for the wisdom of the Perl Monks concerning the following question:

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
[download]

Cheers Rolf

BTW: couldn't find an array holding the values of $1,$2,... in the perldocs !?!

Comment on global regex returning a list of arrays? Select or Download Code

Replies are listed 'Best First'.
Re: global regex returning a list of arrays? by Corion (Patriarch) on Feb 20, 2010 at 14:40 UTC
perlvar lists `@-` and `@+`, but you still need a `while` loop to capture them: `#!/usr/local/bin/perl use strict; use Data::Dumper; my $str = 'abacadabra'; my @matches; push @matches, [ map { substr $str, $-[$_], $+[$_]-$-[$_] } 1..$#+ ] while $str =~ /([ac])([bd])/g; print Dumper \@matches;` [download]	[reply] [d/l] [select]
Re^2: global regex returning a list of arrays? by LanX (Saint) on Feb 20, 2010 at 15:06 UTC
yeah I knew this trick with the index-array, thx,! But it's not really comfortable to need to `substr`... :( Cheers Rolf	[reply] [d/l]
Re^3: global regex returning a list of arrays? by AnomalousMonk (Archbishop) on Feb 20, 2010 at 17:04 UTC
BTW: couldn't find an array holding the values of $1,$2,... in the perldocs !?! Probably not much help in this particular case (and you still need to loop to capture), but 5.10 offers the `%+` and `%-` predefined hashes for named captures (see perlvar) in place of an array of all capture groups: `>perl -wMstrict -le "my $s = '12ab34cd56ef78'; my @pairs; push @pairs, [ $+{A}, $+{B} ] while $s =~ m{ (?<A>[[:alpha:]]) (?<B>[[:alpha:]]) }xmsg; use Data::Dumper; print Dumper \@pairs; " $VAR1 = [ [ 'a', 'b' ], [ 'c', 'd' ], [ 'e', 'f' ] ];` [download]	[reply] [d/l] [select]
Re^4: global regex returning a list of arrays? by LanX (Saint) on Feb 20, 2010 at 21:28 UTC
Re: global regex returning a list of arrays? by AnomalousMonk (Archbishop) on Feb 20, 2010 at 17:32 UTC
Perhaps more scalable, but still involving an explicit loop: `>perl -wMstrict -le "use List::MoreUtils qw(natatime); use Data::Dumper; my $s = 'ab123cd456ef789gh'; my $triad = natatime 3, $s =~ m{ (\d) (\d) (\d) }xmsg; while (my @three = $triad->()) { print Dumper \@three; } " $VAR1 = [ '1', '2', '3' ]; $VAR1 = [ '4', '5', '6' ]; $VAR1 = [ '7', '8', '9' ];` [download]	[reply] [d/l]
Re^2: global regex returning a list of arrays? by LanX (Saint) on Feb 20, 2010 at 22:25 UTC
Ok if we include MoreUtils we could use `part` which does what I wanted without an explicit while: `DB<41> use List::MoreUtils "part" DB<42> $a=join " ",0..5 DB<43> x part {my $i++/2} $a =~/(\w) (\w)/g 0 ARRAY(0x90c6430) 0 0 1 1 1 ARRAY(0x90c68a0) 0 2 1 3 2 ARRAY(0x90c68b0) 0 4 1 5` [download] but after considering MoreUtils it's only a small step to define a specialized functional solution `fold (&)` on one's own... `grep { } fold { $a =~/(\w) (\w)/g }`. Cheers Rolf	[reply] [d/l] [select]
Re^3: global regex returning a list of arrays? by LanX (Saint) on Feb 20, 2010 at 23:09 UTC
...it's only a small step to define a specialized functional solution `fold (&)` on one's own... hmm not as easy as I thought `$a=join " ",0..7; sub fold (&) { my @a; push @a, [$1,$2] while $_[0]->(); @a}; print Dumper fold { $a =~/(\w) (\w)/g };` [download] seems like $1,$2 can't leave the scope of the coderef... Cheers Rolf UPDATE: c&p error in code	[reply] [d/l] [select]
Re^4: global regex returning a list of arrays? by AnomalousMonk (Archbishop) on Feb 21, 2010 at 06:25 UTC


Clear questions and runnable code get the best and fastest answer
	PerlMonks