How to catch the last number in a string in Perl?

How can I catch the "27" in the following string in Perl?


The McCabe complexity of 'myFile' is 27.

Open in new window



The general question is like, how to catch XX in the following string

The McCabe complexity of 'filename' is XX.

Open in new window

TolgarAsked:
Who is Participating?
 
nemws1Connect With a Mentor Database AdministratorCommented:
Try this, going back to my first suggestion (ozo's is better if you indeed just want the last number from a line of text:)

$line = "there may be some other stuff here The McCabe complexity of 'myFile' is 27.";
$line =~ m/.*?The McCabe complexity of '.*?' is (\d+).*/;
$number = $1;
print $number, "\n";

Open in new window

0
 
nemws1Database AdministratorCommented:
Well, since they're the only numbers in that line, just look for digits:

$line = "The McCabe complexity of 'myFile' is 27.";
$line =~ m/.*?(\d+).*/;
$number = $1;
print $number, "\n";

Open in new window

0
 
nemws1Database AdministratorCommented:
Are there going to be any numbers *before* the "27" in this line?
0
Cloud Class® Course: C++ 11 Fundamentals

This course will introduce you to C++ 11 and teach you about syntax fundamentals.

 
TolgarAuthor Commented:
The filename may include numbers. Or the worst case scenario is the file name can be only numbers. But I guarantee that the file name will be in single quotes.
0
 
ozoCommented:
$line = "The McCabe complexity of 'myFile2' is 27.";
$number =  (split/\D+/,$line)[-1];
0
 
TolgarAuthor Commented:
And the other thing is, I read a file into a string. So When we search for the number we should also check that it has this patttern:

The McCabe complexity of 'someTextInHere' someNumberInHere

Open in new window


So the string will be some thing like this:

some characters in here and some other characters
in here then we also have stuff in here then we have The McCabe complexity of 'myFile' 43
and we also have characters in the file.

Open in new window


How are going to catch 43 in this long string?

I guarantee that we will have "The McCabe complexity of 'SOMEFileNAME' " before the number.
0
 
ozoConnect With a Mentor Commented:
($number) = "The McCabe complexity of 'myFile' 43" =~ /The McCabe complexity of '.*' (?:is )?(\d+)/;
0
 
wilcoxonConnect With a Mentor Commented:
I'd do a slight modification of nemws1 and ozo's answer.  With both of theirs, it will be incorrect if there is a single quote followed by a number later in the same line (however, mine won't work if there can be single quotes in the filename itself).
$line = "there may be some other stuff here The McCabe complexity of 'myFile' is 27.";
($number) = $line =~ m{The McCabe complexity of '[^']*'(?: is)? (\d+)};

Open in new window

Is it accurate that the is may not always be present?  You don't say so explicitly (unless I missed it) but your example of the long string does not have the "is".  If it is not optional then you can change "(?: is)?" into just plain " is".
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.