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";