Incrementing an integer at the end of a string in perl

Question

I have a string in the following format: \main\stream\foo.h\3

it may have 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 http://stackoverflow.com/questions/1742798/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.

Thanks.

Answer 1

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.

Answer 2

Try $var =~ s/(\d+$)/($1 + 1)/e