如何在Perl中从字符串中提取数字?

$str =~ s/\D//g;

这将从字符串中删除所有非数字字符。这就是你需要做的。

$str =~ s/[^0-9]//g;

如果不想修改原始字符串,可以使用子模式在regex中捕获数字来提取数字。在列表上下文中,正则表达式返回子模式中定义的匹配项。

my $str = 'abc 123 x456xy 789foo';

my ($first_num) = $str =~ /(\d+)/;   # 123
my @all_nums    = $str =~ /(\d+)/g;  # (123, 456, 789)

如果你想用破坏性的方法,这是最快的方法。

$str =~ tr/0-9//cd;

tr 翻译中的所有字符 c 0-9 一无所获, d

这种方法的一个警告是,如果字符串后面还有另一组数字,它们将与第一组数字连接起来。所以不清楚你是否愿意这么做。

( $str ) = $str =~ /(\d+)/;

在列表上下文中,匹配返回捕获列表。周围的父母 $str 只需将表达式放在列表上下文中,并将第一个捕获分配给 .

就我个人而言,我会这样做:

$s =~ /([0-9]+)/; 
print $1;