2013-07-01から1ヶ月間の記事一覧

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 $</stdin>…