论坛: UNIX系统 标题: 大家快看呀…… 复制本贴地址    
作者: chair [chair]    论坛用户   登录
#! /usr/bin/perl -w

use strict;
use Net::Ping;

print "Please enter IP or Domain Name.\n";
chomp (my $var=<STDIN>);
print "Trying ...\n";
if (pingecho ("$var",10))   {

     print "$var is on the network.\n";

}   else  {

     print "Sorry,$var is not on the network.\n";

}

运行结果为：
Please enter IP or Domain Name.
 ( 127.0.0.1  ENTER )
Trying ...
Sorry,127.0.0.1 is not on the network.

而我使用 #ping 127.0.0.1时却能ping通，为什么上面的perl脚本不行呢？
请各位多多指教。谢谢！


地主 发表时间: 10/31 19:06
回复: chair [chair]   论坛用户   登录


55555~~~~~~~~~~~~55555555~~~~~~~~
为什么没人回我？！

B1层 发表时间: 11/01 18:19
回复: NetDemon [netdemon]   ADMIN   登录
这个函数我从未用过，我刚刚试了一下，确实如你所说
原因还没弄清，只知道pingecho和普通的ping是不一样的
一般ping 是ICMP，但这个是基于tcp的

B2层 发表时间: 11/02 00:39
回复: chair [chair]   论坛用户   登录
老大，

搞清楚了一定要发上来呀......

B3层 发表时间: 11/02 18:32
回复: hilary [hilary]   论坛用户   登录
什么意思，解释一下吧。我不明白。

B4层 发表时间: 11/06 12:48
回复: nothing [eson]   论坛用户   登录
这函数真的有用吗？

B5层 发表时间: 11/10 22:27

论坛: UNIX系统

20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写：NetDemon

粤ICP备05087286号