MX codeを引く
かき捨てコード
#!/usr/bin/perl use Net::DNS; use IP::Country::Fast; while(<STDIN>){ chomp $_; $_=~s/^http\:\/\///; $_=~s/$\///; $_=~s/\/.*//; # MXの取得 my @mx = mx($_); if (scalar(@mx) eq 0){ $_=~s/.*?\.//; @mx = mx($_); } print $_," "; for my $tmp (@mx){ print $tmp->exchange; my $reg = IP::Country::Fast->new(); my $country = $reg->inet_atocc($tmp->exchange); if ($country eq ""){$country="ERROR";} print " on ",$country," "; } print "\n"; }