如何在字符串中的整数最后一次出现后提取子字符串

Question

如何根据字符串中的最后一个整数从字符串中提取子字符串。例如，如果我有以下字符串

$my string = "_ZN7romcode6B0_rom3addEjj";

我希望得到最后一个整数之后的子字符串，在这种情况下为3。如何使用perl正则表达式轻松完成它。

Answer 1

我做：

my $string = "_ZN7romcode6B0_rom3addEjj";
my ($end) = $string =~ /(\D+)$/;

\D代表任何不是数字的字符。