perl 域名查询程序

www.7dspace.com  更新日期：2005-8-17 2:48:35  七度空间

use IO::Socket::INET;
="ourstory.com.cn";
= 'whois.cnnic.net.cn';
  = IO::Socket::INET->new(":43") || die "fail";
print "\n";
@ret=<>;
print "@ret";  

作者：  来源：七度空间 ( 责任编辑:7dspace )

【收藏此页】【打印】【关闭】