使用whois从perl中获取IP地址的国家

Question

如何从perl中的ip地址获取国家/地区？我必须使用whois来做到这一点。 我知道，拿国家，我可以使用：

$test = `whois $ip |grep -i country`; 

但它返回我"Country: DE"。我只需要“DE”。

Answer 1

我有点小白的方式进行，但它的工作原理XD

$test = `whois $_ |grep -i country`; 
$rid = rindex($test, ":"); 
$b = substr("$test, $rid+1); 

而现在我只有 “DE”， “BR”， “CN”， “MX” 等:)

Answer 2

my $country = `whois $ip | grep -Po '^Country:\s*\K.*'; 
chomp($country); 

但是看到-P代表“Perl”中的“P”，我们不妨去掉grep。

my $whois = `whois $ip`; 
my ($country) = $whois =~ /^Country:\s*(.*)/m;