如何創建正則表達式匹配的數組

Question

我試圖創建下面的數組：

@domains = ("lmcaster.espn.go.com", "gomailfileus.go.com"); 

我與使用正則表達式嘗試，但我不是成功的填充陣列。我很確定我的正則表達式部分已經搞亂了。這裏是我的代碼到目前爲止：

#!/usr/bin/perl 
use strict; 
use warnings; 

my $dns_output = <<END; 
199.181.132.138 lmcaster.espn.go.com (300) 
199.181.132.133 gomailfileus.go.com (300) 
END 

my @domains = ($dns_output =~ /[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+\s([[:graph:]])\s[[:graph:]]/); 

for my $d (@domains) { 
     print "Domain: $d\n"; 
} 

有人請指出我做錯了什麼？

Answer 1

你忘了添加/g改性劑，第一，並添加+量詞等全域（而不僅是其第一個符號）將被捕獲，第二。

my @domains = $dns_output =~ /(?:[0-9]+\.){3}[0-9]+\s*([[:graph:]]+)/g; 

我已經壓縮IP，以及在這裏分組，並增加*量詞來\s分離領域。

Answer 2

my @domains = $dns_output =~ /^ \d+[.]\d+[.]\d+[.]\d+ \s+ (\S+) /xmg;