Perl Net::ping

最新推荐文章于 2021-06-16 19:54:53 发布

scan724

最新推荐文章于 2021-06-16 19:54:53 发布

阅读量1.1k

点赞数

分类专栏： Perl高级编程

本文链接：https://blog.youkuaiyun.com/zhaoyangjian724/article/details/43051537

版权

Perl高级编程专栏收录该内容

41 篇文章 ¥39.90 ¥99.00

订阅专栏

本文介绍了如何在Perl中使用Net::Ping模块进行网络探测，特别是通过ICMP协议。示例代码展示了如何检查特定IP地址的可达性，并指定了超时时间和协议类型。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

        use Net::Ping;
while (1==1){
        $host="202.101.172.35";
        $p = Net::Ping->new("icmp");
        print "$host is lost.\n" unless $p->ping($host,2);
     
}

   $p->close();

$proto
        specifies the protocol to use when doing a ping. The current choices
        are "tcp", "udp", "icmp", "stream", "syn", or "external". The
        default is "tcp".




If a default timeout ($def_timeout) in seconds is provided, it is
        used when a timeout is not given to the ping() method (below). The
        timeout must be greater than 0 and the default, if not specified, is
        5 seconds


如果默认的超时是$def_timeout 单位是秒,用于当没有给ping()方法超时设置

默认5秒,默认5秒不通 返回为假