
FishMonger
Veteran
/ Moderator
Jan 16, 2010, 6:00 AM
Post #2 of 3
(6129 views)
|
Re: [gobbluth529] Find string of single digits in string of numbers
[In reply to]
|
Can't Post
|
|
use Data::Dumper; my $str = '28 5 29 29 5 5 27 30 5 29 34 34 34 33 29 5 30 34 34 34 33 34 34 34 34 33 34 33 34 34 34 30 26 33 34 33 26 32 33 33 33 33 34 33 33 34 33 26 33 33 33 33 32 31 34 32 33 32 5 4 7 8 3 6 8 4 33 31 33 33 27 33 30 5 30 32 26 4'; my @num = $str =~ /\b(\d)\b/g; print Dumper \@num; Outputs:
$VAR1 = [ '5', '5', '5', '5', '5', '5', '4', '7', '8', '3', '6', '8', '4', '5', '4' ];
|