Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1720145
  • 博文数量: 362
  • 博客积分: 10587
  • 博客等级: 上将
  • 技术积分: 4098
  • 用 户 组: 普通用户
  • 注册时间: 2009-09-10 18:15
文章分类

全部博文(362)

文章存档

2014年(1)

2013年(58)

2011年(115)

2010年(112)

2009年(76)

分类: PERL

2013-03-21 17:39:25


点击(此处)折叠或打开

  1. #!/usr/bin/perl

  2. use 5.012;
  3. use warnings;
  4. use autodie;
  5. use strict;
  6. use Net::Ping::External qw(ping);

  7. my $alive;
  8. for my $h (1..40) {
  9.     $alive = ping(host => "192.168.1.$h");
  10.     if ($alive) {
  11.         say "192.168.1.$h is alive";    
  12.     } else {
  13.         say "192.168.1.$h is death";
  14.     }
  15. }

阅读(696) | 评论(0) | 转发(0) |
0

上一篇:ucarp

下一篇:批量改变密码

给主人留下些什么吧!~~