Re: Re: Regex: plucking numbers from a large string

Or the ever handy \G zero-width assertion

Which is great if your data is "Tel: 061Tel: 062Tel: 063", 'cause you'd have to use something to match stuff in between, and there's probably a better solution to this than using .*.

You can use m//g in list context, and get a list of matches (or a list of captures if you use them):

my @extensions = $large_string =~ /Tel: 06(\d+)/g;

my %extension;
$extension{$_}++ for @extensions;
[download]

If you don't need the list, you can of course use the match itself as for's expression.

- Yes, I reinvent wheels.
- Spam: Visit eurotraQ.

Comment on Re: Re: Regex: plucking numbers from a large string Download Code

Replies are listed 'Best First'.
Watch $1 vs. $_ in for loops... by RMGir (Prior) on May 01, 2002 at 20:12 UTC
If you don't need the list, you can of course use the match itself as for's expression. I thought so, too :( `$ perl -e'$x="1 2 3 4 5 5 5 5 5 5"; $counts[$1]++ for $x=~/(\d)/g; pri +nt "$_ $c ounts[$_]\n" foreach (0..$#counts)' 0 1 2 3 4 5 10` [download] How's that for a wierd problem? Even stranger, if you s/for/while/: `$ perl -e'$x="1 2 3 4 5 5 5 5 5 5"; $counts[$1]++ while $x=~/(\d)/g; p +rint "$_ $counts[$_]\n" foreach (0..$#counts)' 0 1 1 2 1 3 1 4 1 5 6` [download] This is with 5.6.1. Ignore me; it makes sense that $1 would be the last value with a for loop. $_ works fine. `$ perl -e'$x="1 2 3 4 5 5 5 5 5 5"; $counts[$_]++ for $x=~/(\d)/g; pri +nt "$_ $counts[$_]\n" foreach (0..$#counts)' 0 1 1 2 1 3 1 4 1 5 6` [download] With a while, you have to use $1; that's confused me. `$ perl -e'$x="1 2 3 4 5 5 5 5 5 5"; $counts[$1]++ while $x=~/(\d)/g; p +rint "$_ $counts[$_]\n" foreach (0..$#counts)' 0 1 1 2 1 3 1 4 1 5 6` [download] -- Mike	[reply] [d/l] [select]

Replies are listed 'Best First'.

Watch $1 vs. $_ in for loops...
by RMGir (Prior) on May 01, 2002 at 20:12 UTC

If you don't need the list, you can of course use the match itself as for's expression.
I thought so, too :(
$ perl -e'$x="1 2 3 4 5 5 5 5 5 5"; $counts[$1]++ for $x=~/(\d)/g; pri +nt "$_ $c ounts[$_]\n" foreach (0..$#counts)' 0 1 2 3 4 5 10
[download]
How's that for a wierd problem?
Even stranger, if you s/for/while/:
$ perl -e'$x="1 2 3 4 5 5 5 5 5 5"; $counts[$1]++ while $x=~/(\d)/g; p +rint "$_ $counts[$_]\n" foreach (0..$#counts)' 0 1 1 2 1 3 1 4 1 5 6
[download]
This is with 5.6.1.

Ignore me; it makes sense that $1 would be the last value with a for loop. $_ works fine.

$ perl -e'$x="1 2 3 4 5 5 5 5 5 5"; $counts[$_]++ for $x=~/(\d)/g; pri
+nt "$_ $counts[$_]\n" foreach (0..$#counts)'
0
1 1
2 1
3 1
4 1
5 6
[download]

$ perl -e'$x="1 2 3 4 5 5 5 5 5 5"; $counts[$1]++ while $x=~/(\d)/g; p
+rint "$_ $counts[$_]\n" foreach (0..$#counts)'
0
1 1
2 1
3 1
4 1
5 6
[download]

[reply]
[d/l]
[select]