<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. TCP SOCKET中backlog参数的用途是什么？ ---图解
			
    recv_queue中的包大小,为内核的包大小,而不是ip包大小. 如果发出去的包太大,需要修改write_queue和tx_queue两个参数,tx_queue主要是流量控制. 多进程必须在sock ...
    
			
    2. 
						
  2. etrace 跟踪 nginx之HTTP请求流程
			
    curl 127.0.0.1 | | | \--ngx_epoll_process_events | | | | \--ngx_time_update | | | | | \--ngx_gmtime  ...
    
			
    3. 
						
  3. 基于GPUImage的实时美颜滤镜
			
    1.背景 前段时间由于项目需求,做了一个基于GPUImage的实时美颜滤镜.现在各种各样的直播.视频App层出不穷,美颜滤镜的需求也越来越多.为了回馈开源,现在我把它放到了GitHub https:/ ...
    
			
    4. 
						
  4. Java使用poi对Execl简单_读_操作
			
    public class ReadExecl { // private final String XLSX = ".xlsx"; // 2007以上版本 // private fi ...
    
			
    5. 
						
  5. 实训第一天--增删改查加hibernate+搭建环境常见问题
			
    1.     搭建环境 安装 1)谷歌浏览器 2)jdk-7u67-windows-i586.exe 3)Tomcat7 4)NavicatforMySQL 两种方式: ftp://172.21.95 ...
    
			
    6. 
						
  6. Android中Cursor类的概念和用法
			
    http://blog.sina.com.cn/s/blog_618199e60101fskp.html 使用过 SQLite数据库的童鞋对 Cursor 应该不陌生,加深自己和大家对Android  ...
    
			
    7. 
						
  7. android Services注意地方
			
    使用service前需要在manifest声明: <manifest ... > ... <application ... > <service android:name ...
    
			
    8. 
						
  8. （转载）Javascript 进阶 作用域 作用域链
			
    载请标明出处:http://blog.csdn.net/lmj623565791/article/details/25076713 一直觉得Js很强大,由于长期不写js代码,最近刚好温故温故. 1.J ...
    
			
    9. 
						
  9. 佳博GprinterApp编辑软件使用说明
			
    佳博打印机代理商淘宝店https://shop107172033.taobao.com/index.htm?spm=2013.1.w5002-9520741823.2.Sqz8Pf 在此店购买的打印机 ...
    
			
    10. 
						
  10. IIS部署.NET项目的有关事项_2015.07.02
			
    今天在做项目中的关于发送邮件的一些功能.在部署服务的时候遇到了一些奇葩的问题,基本上是和IIS有关的问题. 首先,项目是基于.NET Framework4.0 版本的,由于本人用的是一台新配置好的机器 ...
    
			
    11.