« 平成17年6月11日(土)の記録 | メイン | 平成17年6月12日(日)の記録 »
Pocketstudio.jp :: LOG :: Perl2005年06月11日
簡易 whois スクリプト whoisjp.pl
以前まで日本国内の IP アドレスや .jp ドメインの whois 情報は、すべて JPNIC (whois.nic.ad.jp) を通じて行われていました。
whois.nic.ad.jp は IP アドレスとネットワークの情報の提供。
whois.jprs.jpはドメイン名ネームサーバのホスト情報を提供しています。
単に『使い分けるのが面倒』なため、
かつてのように、"１つのコマンド"で whois 情報を簡単に調べるスクリプトを書きました。
そのまま以下の文字列をコピーして、whoisjp.pl というファイル名にします。
chmod +x whoisjp.pl
を実行して、実行権限を与えます。
あとは【 whoisjp.pl ドメイン名あるいは IP アドレス】を実行すると結果が表示されます。
例：$ whoisjp.pl cyberteam.jp
例：$ whoisjp.pl 210.239.46.254
#!/usr/bin/perl
$target = $ARGV[0];
die "Usage: whoisjp.pl [DOMAIN NAME or IP ADDRESS]" if !$target;
if ($target =~ /(\w+)(.jp)$/) {
$host = "whois.jprs.jp";
} elsif ($target =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/) {
$host = "whois.nic.ad.jp";
} else {
die "It's not a IP Address or a Domain Name.";
}
print "DOMAIN = $target\n";
print "WHOIS = $host\n";
$cmd = "whois -h $host \"$target\"";
open (CMD, "$cmd |");
foreach $whois (<CMD>) {
print $whois;
}
close (CMD);
投稿者 Masato Zembutsu : 2005年06月11日 21:50
トラックバック
このエントリーのトラックバックURL:
http://pocketstudio.jp/log/mt.cgi/mt-tb.cgi/116