perl 域名查询程序

perl 域名查询程序

- 站长中国 (http://www.zzchina.net)
-- 技术教程 (http://www.zzchina.net/article/)
--- perl 域名查询程序 (http://www.zzchina.net/article/8/7783.htm)

-- 作者：未知
-- 发布日期： 2003-09-13

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

zzchina.net