aşağıdaki biçimde bir dize var perl'de

Question

bir dize sonunda bir tamsayı artırma:

\main\stream\foo.h\3 

daha az ya da "bölümleri" olabilir, ama her zaman bir takip eğik çizgiyle sona erecek tamsayı. Diğer örnekler şunlardır:

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

\main\foo.c\9 

Ben, Perl, dizenin sonundaki sayıyı artırmak ve yalnız kalan bırakmak gerekir. Bu sitede, tam olarak ne yapmak istediğimi yapan bir örnek buldum (bkz. Increment a number in a string in with regex) sadece dil Javascript. Verilen çözüm şu şekilde oldu: Perl'de aynı şeyi yapmam gerekiyor.

Answer 1

Değiştirilebilir kodunuzu yedek dizenize koymak için /e regex değiştiricisini kullanabilirsiniz. gibi

şey:

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

çalışmalıdır.

Answer 2

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