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";
}