#!/usr/bin/perl
use warnings;
use Net::Ping;
$hostname = shift @ARGV;
$p = Net::Ping->new("icmp"); #could be "udp" or "tcp" instead
print "$host is alive.\n" if $p->ping($host);
$p->close();
常见问题
相关文章
猜你喜欢
- 从国家自然科学基金里面爬取所有的基金项目 2015-12-14
- perl symlink 相对路径 2015-12-14
- 获取本机所有IP和设备的绑定情况 2015-12-14
- INI文件的解析 2015-12-14
- perl中的队列 2015-12-14
- 分割合并文件 2015-12-14
- perl解析xml 2015-12-14
- SQL2000数据库比较 2015-12-14
- perl通过IMAP接收、处理邮件 2015-12-14
- Perl 列出系统所有的帐号（Windows） 2015-12-14
