use IO::Socket::INET;
="ourstory.com.cn";
= 'whois.cnnic.net.cn';
= IO::Socket::INET->new(":43") || die "fail";
print "
";
@ret=<>;
print "@ret";
最新更新
- XML和现代CGI应用程序 8-07
- perl 的编译安装 8-07
- 在Perl/CGI中使用模板 8-07
- 绝对路径与相对路径祥解 8-07
- Perl 程序的属性祥解 8-07
- 一个程序自动刷新页面的例子 8-07
- 网站 PAGEVIEW 分析系统 CGI 8-07
- Perl6的结构 8-07
- Parrot 常见问题 8-07
- 一个简单的计数器程序 8-07
