perl - 如何使用 perl 查找 IP 地址是否可 ping 通？

Question

如何确定 IP 地址是否可 ping 通？另外，如何使用 perl 脚本找到可 ping 的 IP 是静态的还是动态的？

Answer 1

看看 Net::Ping模块；

#!/usr/bin/env perl
#
use strict;
use warnings;

use Net::Ping;

my $ip_address = shift || die "Need an IP address (or hostname).\n";

my $p = Net::Ping->new();
if ( $p->ping($ip_address) ) {
    print "Success!\n";
}
else {
    print "Fail!\n";
}

确定 IP 地址是动态的还是静态的需要做更多的工作。看看this和 this发布。