perl - Perl と 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

あなたの入力をむさぼり食う：

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