如何在Perl中仅保留变量中的数字？

Question

我有一个如下变量：

G12345（@@）

如何在变量中只保留数字12345.我之前在PHP中已经完成了，但是我在Perl中找不到方法。

Answer 1

$v =~ s/\D//g;应该可以解决问题。

（正则表达式将“非数字”替换为“无”，全局）

Answer 2

这也可以在没有正则表达式的情况下完成：Transliterate: tr///

use warnings;
use strict;

my $s = 'G12345(@@)';
$s =~ tr/0-9//cd;
print "$s\n";

__END__

12345

Answer 3

用空字符串替换任何非数字字符（\ D是非数字的）：

$var =~ s/\D+//g;

Answer 4

你也可以这样做：

my ( $number ) = $string =~ /(\d+)/;

这意味着在'（@@）'后面还有其他数字 - 无论出于何种原因，你不会突然将这些数字连接到'G'和'（'。之间的数字。所以 capture 方法确保您获得第一组连续的数字。