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