按类别查询搜索结果
关于关键词 的检测结果,共 2
【PERL】 Net::Ping
蚊仔perlperl | 2014-01-10 11:11:31 | 阅读(0) | 评论(0)
由于有时候要批量的用ping检查服务器的IP是否可用,一个一个的ping太麻烦了,所以利用perl中的Net::ping模块,代码如下use warnings;open AA,"ip";use Net::Ping;chomp(@ARGV=<AA>);foreach $host (@ARGV){$p = Net::Ping->new("icmp");# print "$host is alive.\n" if $p->ping($host,5);print "$host i...【阅读全文】
zhengsenlin888 | 2013-04-18 17:18:53 | 阅读(1180) | 评论(0)
#!/usr/bin/perluse 5.012;use strict;use warnings;use autodie;use Net::OpenSSH;my %param = (user => 'fivetrees',passphrase => '123456',key_path => '/home/fivetr...【阅读全文】