字符串上的perl正則表達式數字

Question

我試圖從字符串中獲取數字。 數字可以是純數字，例如12334 ，也可以用下划線12_345

我嘗試使用以下代碼，但無法從中獲取任何信息。

my $string = "this is a 141_153_923 number : $_123_456";          

if ($string =~ /\b\d*(?:\d+\_?\d+)*\d*\b/) {
    print "$&\n";
}

預期產量為141_153_923

我也嘗試過字符串141_153_923 ，它仍然沒有返回任何東西，甚至與

$string =~ /\b\d\b/ 

在字符串141_153_923

Answer 1

我希望你的Perl代碼中聲明了變量$_123_456 。 否則你會收到警告。

現在的正則表達式。 試試這個：

if ($string =~ /\b(\d+(?:_\d+)*)\b/) {

Answer 2

試試這個正則表達式： /((?:\\d+\\_?)+)/ 。

...
my $string = "this is a 141_153_923 number : \$_123_456";
my $num;
if  (($num) = $string =~ /((?:\d+\_?)+)/) {
  print "first: $num\n";
}

$string = "this is a 141153923 number : \$_123_456";
if  (($num) = $string =~ /((?:\d+\_?)+)/) {
  print "second: $num\n";
}
...

輸出：

first: 141_153_923
second: 141153923