Perl 的 ping

bigstarr

perl代码

1. #!/usr/bin/perl
   
2. use warnings;
   
3. 
   
4. use Net::Ping;
   
5. $hostname = shift @ARGV;
   
6. $p = Net::Ping->new("icmp"); #could be "udp" or "tcp" instead
   
7. print "$host is alive.\n" if $p->ping($host);
   
8. $p->close();

复制代码

perl代码

1. use Net::Ping;
   
2. 
   
3. $pingobject = Net::Ping->new(icmp);
   
4. 
   
5. if ($pingobject->ping('www.oschina.net')) {print "Could reach oschina."};
   
6. 
   
7. $pingobject->close();

复制代码

substr函数

回复 1# bigstarr

求教这个ping命令什么意思，我是新手，刚刚学习
谢谢 ...