|
|
|
|
# perl 国内域名查询程序 # flybird@chinaasp.com # 2000-9-22 # perl 写socket程序确实很简单。 use IO::Socket::INET; $fqdn="ourstory.com.cn"; $server = 'whois.cnnic.net.cn'; $sock = IO::Socket::INET->new("$server:43") || die "fail"; print $sock "$fqdn\n"; @ret=<$sock>; print "@ret"; |
