<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. linux调度器系列
			
    http://blog.csdn.net/wudongxu/article/category/791519
    
			
    2. 
						
  2. html_entity_decode() 函数
			
    html_entity_decode() 函数   定义和用法 The html_entity_decode() function converts HTML entities to characte ...
    
			
    3. 
						
  3. a标签的背景图在ie8下显示问题
			
    今天遇到个小问题,纠结了很久,分享下 a标签添加背景图,需要给a添加display:block样式 但是在ie8下还是不能显示背景图,开始以为是由于a标签为空造成的,试了下添加内容也没用,后来注意到一 ...
    
			
    4. 
						
  4. JQ 让光标在文本框最末尾
			
    function setFocus() { //文本末尾获得焦点 var obj = event.srcElement; var txt = obj.createTextRange(); txt.mo ...
    
			
    5. 
						
  5. 常用CDN公共库
			
    Jquery <script src="http://lib.sinaapp.com/js/jquery/1.7.2/jquery.min.js"></scrip ...
    
			
    6. 
						
  6. Xcode的控制台调试命令
			
    XCode4.0以后,编译器换成了LLVM 编译器 2.0 与以前相比,更加强大:1.LLVM 编译器是下一带开源的编译技术.完全支持C, Objective-C, 和 C++.2.LLVM 速度比  ...
    
			
    7. 
						
  7. 十四、C# 支持标准查询运算符的集合接口
			
    支持标准查询运算符的集合接口. System.Linq.Enumeralbe类提供的一些常用的API 来执行集合处理 1.匿名类型 2.隐匿类型的局部变量 3.集合初始化器 4.集合 5.标准查询运算 ...
    
			
    8. 
						
  8. [转]MySQL数据库备份和还原的常用命令小结
			
    MySQL数据库备份和还原的常用命令小结,学习mysql的朋友可以参考下: 备份MySQL数据库的命令 mysqldump -hhostname -uusername -ppassword datab ...
    
			
    9. 
						
  9. 实现Bootstrap Carousel Fade Transition 淡入淡出效果
			
    html代码: <div id="carousel" class="carousel slide carousel-fade" data-ride=&qu ...
    
			
    10. 
						
  10. Oauth认证简介
			
    Oauth是什么: 1.Oauth是一种安全认证的协议: 2.Oauth为用户资源的授权提供了一个安全的.开放而又简易的标准: 3.Oauth的授权不会使第三方触及到用户的账号信息(用户名和密码).  ...
    
			
    11.