如何提取所有匹配号码

Question

我想从网页中提取所有14位数字，但我只得到一个结果

use LWP::Simple;
use Data::Dumper;
use LWP::UserAgent;

my $url = 'example.com'; #input url
my $as = `curl --silent '$url' -H 'User-Agent: Mozilla/5.0 (Macintosh; In grep OS X 10.9; rv:24.

if ($as =~ m/(\d{12,14})/g) {   
    print STDERR Dumper($as);
}

$as =~ m{(\d{12,14})};

my $upc=$1;

print "$upc\n";

只打印一个号码

Answer 1

你错过了全局标志，但我不熟悉指定reges的方法。我希望他们以＆＃34; /＆＃34;开头/结尾，你只需要旗帜＆＃34; g＆＃34;即

/\d{12,14}/g

Answer 2

这样做：

my @results = $as =~ m{\b(\d{12,14})\b}g;