如何在Perl中只保留一個變量的數字？

Question

我有這樣低於變量：

G12345（@@）

我怎麼可能保持變量只有12345我在PHP以前做過，但我無法找到在Perl的方式號碼。

Answer 1

$v =~ s/\D//g;應該這樣做。

（正則表達式替代物「不是數字」與「無」，在全球範圍）

Answer 2

替換爲空字符串的任何非數字字符（\ d爲非數字）：

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

Answer 3

這也可以不用正則表達式來完成：Transliterate: tr///

use warnings; 
use strict; 

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

__END__ 

12345 

Answer 4

你也可以這樣來做：

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

這意味着在'（@@）'之後會出現其他數字 - 無論出於何種原因，您不會突然將這些數字連接到位於'G'和'（' 。所以捕獲方法確保你得到第一組連續數字。