|
|
|
| 作者：未知 |
| 日期：2003-09-13 |
| 人氣： |
| 投稿：Andy.m(轉貼) |
| 來源：未知 |
| 字體：大 中 小 |
| 收藏：加入瀏覽器收藏 |
|
|
|
# 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";
|
|
|
當前位置：開發者網絡 >> 技術教程 >> CGI教程 >> CGI文檔 >> 內容
