perl 域名查詢程序

領測軟件測試網 # 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";

文章來源于領測軟件測試網 http://www.kjueaiud.com/