使用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);

现在我只有＆＃34; DE＆＃34;，＆＃34; BR＆＃34;，＆＃34; CN＆＃34;，＆＃34; MX＆＃34;等：）

Answer 2

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

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

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