你的分享就是我们的动力 ---﹥

Perl 的 ping

时间:2013-05-30 00:09来源:www.chengxuyuans.com 点击:

代码简介

暂无

Perl代码片段

#!/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();

Perl代码片段

use Net::Ping;

$pingobject = Net::Ping->new(icmp);

if ($pingobject->ping('www.oschina.net')) {print "Could reach oschina."};

$pingobject->close();

转载注明地址:http://www.chengxuyuans.com/Perl/63107.html