标题: perl 域名查询程序 [打印本页]

---

作者: cnangel    时间: 2005-8-24 14:01     标题: perl 域名查询程序

作者：飞鸟
email: flybird@chinaasp.com
日期：2000-9-22 17:20:25
#  perl 国内域名查询程序
#  flybird@chinaasp.com
#  2000-9-22
#  perl 写socket程序确实很简单。

1. use IO::Socket::INET;
2. $fqdn   = "ourstory.com.cn";
3. $server = "whois.cnnic.net.cn";
4. $sock   = IO::Socket::INET->new("$server:43") || die "fail";
5. print $sock "$fqdn\n";
6. @ret    = <&#36;sock>;
7. print "@ret";  

复制代码

---

欢迎光临 星星博客 (http://commerce.huhoo.net/)

Powered by Discuz! 7.0.0