6,868
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
kxyes 2004-07-28
- 打赏
- 举报
怎么没人up啊
kxyes 2004-07-26
- 打赏
- 举报
有没有js的或vbs的啊
icuc88 2004-07-26
- 打赏
- 举报
哈哈，一个perl的例子。
use Net::hostent;
use Socket; @ARGV = ('www.sunisco.com') unless @ARGV; for $host ( @ARGV ) { unless ($h = gethost($host)) {
warn "$0: no such host: $host\n";
next;
} printf "\n%s is %s%s\n",
$host,
lc($h->name) eq lc($host) ? "" : "*really* ",
$h->name; print "\taliases are ", join(", ", @{$h->aliases}), "\n"
if @{$h->aliases}; if ( @{$h->addr_list} > 1 ) {
my $i;
for $addr ( @{$h->addr_list} ) {
printf "\taddr #%d is [%s]\n", $i++, inet_ntoa($addr);
}
} else {
printf "\taddress is [%s]\n", inet_ntoa($h->addr);
} if ($h = gethostbyaddr($h->addr)) {
if (lc($h->name) ne lc($host)) {
printf "\tThat addr reverses to host %s!\n", $h->name;
$host = $h->name;
redo;
}
}
}
use Net::hostent;
use Socket; @ARGV = ('www.sunisco.com') unless @ARGV; for $host ( @ARGV ) { unless ($h = gethost($host)) {
warn "$0: no such host: $host\n";
next;
} printf "\n%s is %s%s\n",
$host,
lc($h->name) eq lc($host) ? "" : "*really* ",
$h->name; print "\taliases are ", join(", ", @{$h->aliases}), "\n"
if @{$h->aliases}; if ( @{$h->addr_list} > 1 ) {
my $i;
for $addr ( @{$h->addr_list} ) {
printf "\taddr #%d is [%s]\n", $i++, inet_ntoa($addr);
}
} else {
printf "\taddress is [%s]\n", inet_ntoa($h->addr);
} if ($h = gethostbyaddr($h->addr)) {
if (lc($h->name) ne lc($host)) {
printf "\tThat addr reverses to host %s!\n", $h->name;
$host = $h->name;
redo;
}
}
}
