Geo::IP模块未返回所有国家/地区代码

Question

我试图读取一个包含IP地址的文件，然后将它们传递给Geo::IP以查找它们的国家代码，但我的代码只返回文件中最后一个IP的国家代码。

open(my $in, "<", "ips.txt") or die "can't open the file $!";
my @lines = <$in>;
use Geo::IP;
my $gi = Geo::IP->new(GEOIP_MEMORY_CACHE);
foreach (@lines) {
    print $gi->country_code_by_addr($_);
}

我做错了什么？

Answer 1

chomp您的输入：

open(my $in, "<", "ips.txt") or die "can't open the file $!";
my @lines = <$in>;
chomp @lines;