Re: •Re: positions of all regexp matches

Look, ma, no loops!

use re 'eval';
my $string = "hello world ballloon";
my $regex = qr/ll/;
my @matches;
() = $string =~ /(?=$regex)(?{push @matches, pos})./g;
print join "\n", @matches;
__END__
2
14
15
[download]

flounder

Comment on Re: •Re: positions of all regexp matches Download Code

Replies are listed 'Best First'.
•Re: Re: •Re: positions of all regexp matches by merlyn (Sage) on Oct 14, 2003 at 19:06 UTC
`() = $string =~ /(?=$regex)(?{push @matches, pos})./g;` [download] Oddly enough, that would find no matches if `$regex` began with `\n`. Sloppy coding. No need for that "." in there anyway. -- Randal L. Schwartz, Perl hacker Be sure to read my standard disclaimer if this is a reply.	[reply] [d/l]
Re:^4 positions of all regexp matches by flounder99 (Friar) on Oct 14, 2003 at 19:57 UTC
You are right about the not finding the `\n` since I didn't add an `s` at the end of the `m//`. But if you don't have the . in there it will find the positions twice. `use re 'eval'; my $string = "he\nllo world ba\nllloon"; my $regex = qr/\nll/; my @matches; () = $string =~ /(?=$regex)(?{push @matches, pos})./sg; print "with .\n", join "\n", @matches; @matches = (); () = $string =~ /(?=$regex)(?{push @matches, pos})/sg; print "\n\nwithout .\n", join "\n", @matches; __END__ with . 2 15 without . 2 2 15 15` [download] -- flounder	[reply] [d/l] [select]
•Re: Re:^4 positions of all regexp matches by merlyn (Sage) on Oct 14, 2003 at 20:04 UTC
That's bug-like behavior. I don't know why it should find the same item twice there. A //g match is guaranteed not to match twice in the same place. -- Randal L. Schwartz, Perl hacker Be sure to read my standard disclaimer if this is a reply.	[reply]
Re: •Re: Re:^4 positions of all regexp matches by sandfly (Beadle) on Oct 14, 2003 at 22:40 UTC