RegEx Solution Needed

[Matt White]

Hello,

I am in need of an effective regular expression that will capture
multiple values on the same line, not knowing in advance how many
matching values there are. Basically it needs to match strings of 3
digits within a string that contains anything (all on the same line).
I am pretty familiar with regular expressions but I've never tried
anything like this before.

So what I have is a line like:
abc123def456ghi789jkl

I want to end up with a list that looks like:
[123,456,789]

Thanks for your help!

 

[Steven M. O'Neill]

So what I have is a line like:
abc123def456ghi789jkl

I want to end up with a list that looks like:
[123,456,789]

This looks pretty close:

~>perl -ne 'while (m/(\d{3})/g) {print "$1,"}'
abc123def456ghi789jkl
123,456,789,^C

Removing the final "," is left as an exercise for the reader.

 

[John W. Krahn]

Hello,

I am in need of an effective regular expression that will capture
multiple values on the same line, not knowing in advance how many
matching values there are. Basically it needs to match strings of 3
digits within a string that contains anything (all on the same line).
I am pretty familiar with regular expressions but I've never tried
anything like this before.

So what I have is a line like:
abc123def456ghi789jkl

I want to end up with a list that looks like:
[123,456,789]

$ perl -le'
$_ = q/abc123def456ghi789jkl/;

print for /(?<=\D)\d{1,3}(?=\D)/g;
'
123
456
789

$ perl -le'
$_ = q/abc123def456ghi789jkl/;

print for grep 3 == length, /\d+/g;
'
123
456
789




John

 

[Tad McClellan]

I am in need of an effective regular expression that will capture
multiple values on the same line, not knowing in advance how many
matching values there are. Basically it needs to match strings of 3
digits

So what I have is a line like:
abc123def456ghi789jkl

I want to end up with a list that looks like:
[123,456,789]

use a global match in list context:

my @nums = 'abc123def456ghi789jkl' =~ /(\d\d\d)/g;

 

[Dr.Ruud]

Matt White schreef:

So what I have is a line like:
abc123def456ghi789jkl
I want to end up with a list that looks like:
[123,456,789]

echo abc123def456ghi789jkl |
perl -wnle 'print "[", join(",", /\d+/g), "]"'

 

[Jürgen Exner]

So what I have is a line like:
abc123def456ghi789jkl

I want to end up with a list that looks like:
[123,456,789]

$_ = 'abc123def456ghi789jkl';
my @res = split /\D+/;
print "@res";

jue

 

[Dr.Ruud]

Jürgen Exner schreef:

Matt White:

So what I have is a line like:
abc123def456ghi789jkl
I want to end up with a list that looks like:
[123,456,789]

$_ = 'abc123def456ghi789jkl';
my @res = split /\D+/;
print "@res";

There is a problem there which you will notice when you do

{
local $" = q{,};
print "[@res]";
}

 

[Dr.Ruud]

Dr.Ruud schreef:

Matt White:

So what I have is a line like:
abc123def456ghi789jkl
I want to end up with a list that looks like:
[123,456,789]

echo abc123def456ghi789jkl |
perl -wnle 'print "[", join(",", /\d+/g), "]"'

Variant:
echo abc123def456ghi789jkl |
perl -wnle '$"=","; print "[@{[/\d+/g]}]"'

 

[Brad Baxter]

Dr.Ruud schreef:

Matt White:

So what I have is a line like:
abc123def456ghi789jkl
I want to end up with a list that looks like:
[123,456,789]

echo abc123def456ghi789jkl |
perl -wnle 'print "[", join(",", /\d+/g), "]"'

Variant:
echo abc123def456ghi789jkl |
perl -wnle '$"=","; print "[@{[/\d+/g]}]"'

Golf:

echo abc123def456ghi789jkl |
perl -ple'$"=",";$_="[@{[/\d+/g]}]"'