perl 域名查询程序
敬业的IT人
互联网
佚名
2008-4-15 10:38:29
# 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";
# 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";
- 最新文章
- 使用Perl连接Access数据库详解[04-15]
- 编写关于SendMaild的CGI[04-15]
- CGI简明教程第三章[04-15]
- CGI编程的安全性--文件名[04-15]
- 联网调试CGI程序心得[04-15]
- 谈谈CGI的开发[04-15]
- 相关文章
- 使用Perl连接Access数据库详解[04-15]
- Perl连接SQLServer[04-15]
- Perl6的结构[04-15]
- Perl用于实现遗传算法[04-15]
- 跟我学Perl（三）[04-15]
- Perl的安全性监测[04-15]
