Perl/Regular Expression how to match any number of words followed by a number?

[Akino877]

Hello,

I am new to regular expression and wonder if someone could please help me with matching any number of words followed by a number.

I've tried the following :

$str = "aaa bbb ccc -45";
while ($str =~ m/(\w+)+|-?\d{1,2}$/g) {
print $1;
}

And $1 only picked up "aaa", "bbb", "ccc" but not "-45".
I appreciate any help anyone can post.

Thank you,

Akino

[numberwhun]

The reason the -45 was not caught, and I am speculating a bit, is because the - sign is part of the 45 and its not specified anywhere in your regex. Just a thought though.

I did some quick coding and came up with the following, which does match, although I haven't tested it on a number without a "-". Feel free though.

#!/usr/bin/perl
 
use strict;
use warnings;
 
my $str = "aaa bbb ccc -45";
 
if($str =~ /((\w+\s+)+\-*\d*)$/){
    print("$1\n");
}
 

Also, always use strict and warnings. They are your friends. :)

Regards,

Jeff