Incrementing an integer at the end of a string in perl
I have a string in the following format:
\main\stream\foo.h\3
it may ha开发者_JS百科ve more or less "sections", but will always end with a slash followed by an integer. Other examples include:
\main\stream2309\stream222\foo.c\45
\main\foo.c\9
I need to, in Perl, increment the number at the end of the string and leave the rest alone. I found an example on this site that does exactly what I want to do (see Increment a number in a string in with regex) only the language is Javascript. The solution given was:
.replace(/\d+$/,function(n) { return ++n })
I need to do the same thing in Perl.
You can use the /e
regex modifier to put executable code in your replacement string.
Something like:
$string =~ s/(\d+)$/$1 + 1/e;
should work.
Try $var =~ s/(\d+$)/($1 + 1)/e
精彩评论