Увеличение целого числа в конце строки в Perl

Question

У меня есть строка в следующем формате:

\main\stream\foo.h\3

может иметь более или менее «разделы», но всегда будет заканчиваться косой чертой, за которой следует целое число. Другие примеры включают в себя:

\main\stream2309\stream222\foo.c\45

\main\foo.c\9

Мне нужно в Perl увеличить число в конце строки и оставить все остальное в покое. На этом сайте я нашел пример, который делает именно то, что я хочу (см. Увеличение числа в строке с помощью регулярного выражения ), только язык - Javascript. Решение было дано:

.replace(/\d+$/,function(n) { return ++n })

Мне нужно сделать то же самое в Perl.

Answer 1

Вы можете использовать модификатор /e regex, чтобы поместить исполняемый код в строку замены.

Что-то вроде:

$string =~ s/(\d+)$/$1 + 1/e;

должно работать.

Answer 2

Попробуйте $var =~ s/(\d+$)/($1 + 1)/e