Incremento un numero intero alla fine di una stringa in Perl

Question

Ho una stringa nel seguente formato:

\main\stream\foo.h\3 

esso può avere più o meno "sezioni", ma sarà sempre terminare con una barra seguita da un numero intero. Altri esempi includono:

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

\main\foo.c\9 

ho bisogno di, in Perl, incrementare il numero alla fine della stringa e lasciare il resto da solo. Ho trovato un esempio su questo sito che fa esattamente quello che voglio fare (vedi Increment a number in a string in with regex) solo la lingua è Javascript. La soluzione data era:

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

ho bisogno di fare la stessa cosa in Perl.

Answer 1

È possibile utilizzare il modificatore di espressioni regolari /e per inserire il codice eseguibile nella stringa di sostituzione.

Qualcosa di simile:

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

dovrebbe funzionare.

Answer 2

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