<pre name="code" class="html">use Net::Ping;

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

 while (1==1){

 open (LIST,"<","list.txt") || die "$!\n";

 while (<LIST>)

 {chomp;

 my $host=$_;

 if ($p->ping($host))

 {print "$host is alive\n";}

 else

 {print "$host is die\n"};

 }

 close LIST;

 sleep(5);

   }

192.168.11.1

192.168.10.1

192.168.5.1
												


											
Perl ping的更多相关文章
	

    
						
  1. 【转】perl ping检测功能脚本代码
		
    我的第一个用于生产环境的perl脚本,虽然不是很优秀,但也迈出了扎实的一步 :)领导有任务,给一批IP列表,ping每一台机器,如果没有响应就发邮件通知,通知的邮件需要分开,不能通知一个列表,得一封一 ...
    
		
    2. 
								
  2. perl 从文件里读出变量无法使用解决办法
		
    最近在写一个perl函数,把test case 放到配置文件里,读出来然后使用system运行. 我的本意是: 配置文件conf ping -c $count $ip #在主程序中定义$ip和$cou ...
    
		
    3. 
						
  3. 这些年我们一起搞过的持续集成~Jenkins+Perl and Shell script
		
    这些年我们一起搞过的持续集成~Jenkins+Perl and Shell script ##转载注明出处:http://www.cnblogs.com/wade-xu/p/4378224.html  ...
    
		
    4. 
						
  4. 关于MySQL的Admin Ping Command
		
    前言: 最近在线上诊断QPS飙升的过程中深入进行了下Admin Ping Command的测试.此外,再一些国外文章中最近也读到了一些相关知识,所以写成一篇博文做一下总结. 1. 关于Admin Pi ...
    
		
    5. 
						
  5. ping命令的用法大全！
		
    1)如何查看本机所开端口: 用netstat -an命令查看!再stat下面有一些英文,我来简单说一下这些英文具体都代表什么- LISTEN:侦听来自远方的TCP端口的连接请求 SYN-SENT:再发 ...
    
		
    6. 
						
  6. 常用脚本语言Perl，Python，Ruby，Javascript一 Perl，Python，Ruby，Javascript
		
    常用脚本语言Perl,Python,Ruby,Javascript一 Perl,Python,Ruby,Javascript Javascript现阶段还不适合用来做独立开发,它的天下还是在web应用 ...
    
		
    7. 
						
  7. perl 创建包
		
    <pre name="code" class="python"><pre name="code" class=" ...
    
		
    8. 
						
  8. perl 一个简单的面向对象的例子
		
    <pre name="code" class="python">[root@wx03 wx]# cat x1.pm package x1; use  ...
    
		
    9. 
						
  9. perl 对象 bless 引用
		
    [root@dr-mysql01 ~]# cat aa.pl use LWP::UserAgent; use Data::Dumper; my $ua = LWP::UserAgent->new ...
    
		
    10. 
		

	


随机推荐
	

    
									
  1. 在进行页面的DIV CSS排版时，遇到IE6（当然有时Firefox下也会偶遇）浏览器中的图片元素img下出现多余空白的问题绝对是常见的对于该问题的解决方法也是“见机行事”。
			
    当一个img标签没得图片时,在firox中,即使给img标签设置了固定高度和宽度,img标签还是不会站位: 解决方法一:直接将img设置为块状元素:即,设置img为“display:block;”.在 ...
    
			
    2. 
						
  2. APP切图那些事儿-Android ios
			
    
			
    3. 
						
  3. oracle左右连接 完全连接 有效连接 心得总结
			
    左链接 A表  Left  join  B表  on  条件 示例 A表 B表 SELECT * FROM A  left JOIN B ON A.AID = B.BID; 结果: 左链接查询出来的数 ...
    
			
    4. 
						
  4. iOS原生CIFilter创建二维码
			
    iOS原生CIFilter创建二维码 2016-05-31 未来C iOS原生CIFilter创建二维码 关于二维码生成,网上也是有很多,很早以前的第三方库大多数都是通过C++写,也是有的如zxing ...
    
			
    5. 
						
  5. Android 安全性和权限
			
    自定义权限 permission <permission android:name="com.android.launcher.permission.INSTALL_SHORTCUT& ...
    
			
    6. 
						
  6. Signalr简单入门，使用注意点
			
    注意点:1,创建proxy代理时候,继承了hub的类,方法名在js中,同名,但是默认首字母是小写,2,js中代理毁掉方法的名称和继承了hub的类的方法中的Clients.All.的对象名称要一致(名称 ...
    
			
    7. 
						
  7. switch语法之PHP
			
    $a = 100; switch ($a) { case 100: echo '满分'; break; case $a >=60: echo '及格'; break; }
    
			
    8. 
						
  8. 苹果开发 笔记（80）升级IOS 9 和 XCode 7 引起的问题记录
			
    原文: http://blog.csdn.net/hero82748274/article/details/48629461 问题一: 升级xcode 7最低的系统配置要求 升级了ios9 后使用 x ...
    
			
    9. 
						
  9. 重要性!important
			
    我们在做网页代码的时,有些特殊的情况需要为某些样式设置具有最高权值,怎么办?这时候我们可以使用!important来解决. 如下代码: p{color:red!important;} p{color: ...
    
			
    10. 
						
  10. ubuntu12.04安装QQ2013
			
    1.下载Longene QQ2013SP6 http://pan.baidu.com/s/1hq83fWo 2.安装 1)如果之前安装过旧版本需要先卸载(通过dpkg -l | grep qq查看). ...
    
			
    11.