如何在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