in reply to Re^6: Why is "any" slow in this case?
in thread Why is "any" slow in this case?
you are right I misremembered the /g, /c, pos(), \G mechanisms which only work in scalar context. Mea Culpa.
But you can grep all @matches and post process them in pairs, like
use v5.14; use warnings; say "INPUT: ",my $str = join " ", 11 .. 19; my @matches = $str =~ m/(\d+) (\d+)/g ; while (my ($c,$r) = splice @matches,0,2) { say "$c - $r"; }
INPUT: 11 12 13 14 15 16 17 18 19 11 - 12 13 - 14 15 - 16 17 - 18
If you want only two capture per string you can also use /gc to avoid an infinite loop.
use v5.14; use warnings; say "INPUT: ",my $str = join " ", 1..9; my $stop=5; while ( my ($c,$r) = ($str =~ m/(\d+) (\d)/gc) ) { say "$c $r"; die unless $stop--; }
INPUT: 1 2 3 4 5 6 7 8 9 1 2
Cheers Rolf
(addicted to the Perl Programming Language :)
see Wikisyntax for the Monastery
|
---|