引用 作者: TriVector 查看文章
应该是这个: net::ping
Pearl 官方手册

比如:
代码:
my $a;
my $p;
use Net::ping;
$p = Net::ping->new();
$a= $p->ping("$host");
$p->close();
#在这里做你要得选择判断
谢谢你给的资料!