DOS下的ping功能如何用perl实现

[Turing]

如题，在DOS下我们可以简单的通过Ping命令实现一些功能，有谁知道这些功能如何通过perl编程实现！

[danny]

我不知道答案，但是你这个问题的重点不在如何用perl实现，而是ping到底是怎么工作的，我想，你搞清楚这个，用什么编不是那么重要。 google查查关于ping的原理吧。

[Turing]

我不知道答案，但是你这个问题的重点不在如何用perl实现，而是ping到底是怎么工作的，我想，你搞清楚这个，用什么编不是那么重要。 google查查关于ping的原理吧。

谢谢你的见意，以后还保持联系

[TriVector]

应该是这个: net::ping
Pearl 官方手册

比如:

my $a;
my $p;
use Net::ping;
$p = Net::ping->new();
$a= $p->ping("$host");
$p->close();
#在这里做你要得选择判断

[Turing]

应该是这个: net::ping
Pearl 官方手册

比如:

my $a;
my $p;
use Net::ping;
$p = Net::ping->new();
$a= $p->ping("$host");
$p->close();
#在这里做你要得选择判断

谢谢你给的资料！