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

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

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

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

比如:

代码:

---

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

---

引用:

---

作者: TriVector

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

比如:

代码:

---

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

---

---

谢谢你给的资料！

引用:

---

作者: danny

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

---

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