2013-07-01ãã1ã¶æéã®è¨äºä¸è¦§
ããæ¨ã¦ã³ã¼ã #!/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>â¦