Perl ping

于 2016-10-27 17:34:14 发布
阅读量496 收藏
点赞数
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/52947951
版权 
<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



                

        

        

    

  


    

      

        

            

              
                
                  scan724
                
              
            

            

                关注
              
            

        

        

          
      

      









                



	

		

			

				
					
PERL编写的服务器响应时间（ping）测试

				
			

			

				

					07-30
				

			

		

		

			
				
PERL编写的服务器响应时间（ping）测试，生成html文件，图形显示。$hostList[]方便测试任何服务器。

			
		

	



                

            
              



	

		

			

				
					
perl笔记之ping批量检查IP是否连通

				
			

			

				

					weixin_34352449的博客
				

				

					11-16
					
					206
					
				

			

		

		

			
				
由于有时候要批量的用ping检查服务器的IP是否可用，一个一个的ping太麻烦了，所以利用perl中的Net::ping模块，代码如下


use warnings;
open AA,"ip";
use Net::Ping;
chomp(@ARGV=<AA>);
foreach $host (@ARGV){
$p = Net::Ping-&...

			
		

	



              


  
              

                


	

		

			

				
					
perl 中 ping的小用法

				
			

			

				

					a1234567mdy的专栏
				

				

					12-27
					
					1016
					
				

			

		

		

			
				
use Net::Ping;

 $pinghost = Net::Ping->new("tcp");
#Protocol for ping must be "icmp", "udp", "tcp", "syn", "stream", or "external"
 $domain = "sohu.com";
 $ip = "184.22.37.92";

# if ($pinghost->ping

			
		

	





	

		

			

				
					
perl编写ping脚本

				
			

			

				

					weixin_34248118的博客
				

				

					11-05
					
					132
					
				

			

		

		

			
				
我的第一个用于生产环境的perl脚本,虽然不是很优秀,但也迈出了扎实的一步 :)
领导有任务,给一批IP列表,ping每一台机器,如果没有响应就发邮件通知,通知的邮件需要分开,不能通知一个列表,得一封一封的通知.
用到email::send模块,因为需要用到Gmail
#!/usr/bin/perl 
use warnings; 
use strict; 
use...

			
		

	



		

			
		



	

		

			

				
					
Jeb Perl Ping Stats-开源

				
			

			

				

					04-16
				

			

		

		

			
				
JPPS是一个Perl脚本，可从unix / linux ping命令的输出进行统计

			
		

	





	

		

			

				
					
smokeping说明文档.docx

				
			

			

				

					04-03
				

			

		

		

			
				
烟雾ping是一款由Perl编程语言编写的网络监控工具，它依赖于rrdtool（Round Robin Database Tool）和fping。烟雾ping的主要功能是监测网络性能，包括基本的ping测试，通过echoping检查web服务器响应速度，监控DNS...

			
		

	





	

		

			

				
					
批量PingTelnet检测

					
最新发布

				
			

			

				

					12-25
				

			

		

		

			
				
为了提高效率，通常会利用编程语言（如Python、Perl或PowerShell）编写自动化脚本，实现批量检测任务。这些脚本不仅可以执行Ping和Telnet操作，还可以记录结果、生成报告、触发警报等，实现网络运维的智能化。  综上...

			
		

	





	

		

			

				
					
smokeping2.6.9

				
			

			

				

					05-05
				

			

		

		

			
				
1. **系统要求**：确保你的服务器或设备满足 Smokeping 的运行环境，通常需要Linux操作系统、Perl解释器和相关依赖库。 2. **下载与解压**：从官方网站或镜像站点获取`smokeping-2.6.9`压缩包，解压后进入目录。 3. ...

			
		

	





	

		

			

				
					
Perl ping监控

				
			

			

				

					zhaoyangjian724的专栏
				

				

					12-30
					
					709
					
				

			

		

		

			
				
use warnings;  
use Net::Ping;  
if ($#ARGV <0){  
   print "请输入一个参数\n";  
  exit(-1);  
}  
$host = $ARGV[0];  
$p = Net::Ping->new("icmp");  
 print "$host is alive.\n" if $p->ping($host,5);  
 syst

			
		

	





	

		

			

				
					
Perl使用Net::Ping

				
			

			

				

					zhaoyangjian724的专栏
				

				

					12-10
					
					1052
					
				

			

		

		

			
				
use warnings;
use Net::Ping;
if ($#ARGV <0){
   print "请输入一个参数\n";
  exit(-1);
}
$var=$ARGV[0];
@ARRAY="";
for ($i = 1;$i<=255;$i++){
push  @ARRAY, "$var.$i"};
foreach $host (@ARRAY){
$p = Net::Ping->

			
		

	





	

		

			

				
					
通过Net::Ping 理解Perl的面向对象

				
			

			

				

					zhaoyangjian724的专栏
				

				

					01-13
					
					804
					
				

			

		

		

			
				
v-dev-redis01:/root# cat a1.pl 
sub check_dns{
 use  LWP::UserAgent;  
use Net::Ping;
$web = shift;
 $p = Net::Ping->new("icmp");
  if ($p->ping($web,2)){   
return 1;
}  
else {  
return 0;
}} ;

$va

			
		

	





	

		

			

				
					
利用Perl Net::Ping检测网段IP是否…

				
			

			

				

					rockiecxh的专栏
				

				

					05-08
					
					787
					
				

			

		

		

			
				
基于 http://hi.baidu.com/zhujian0805/blog/item/330a7be936361e37b80e2d3e.html
做了一些改动, 大多从网上找的资源,自己揉和在一起了.

ip_conf.txt IP段配置文件

# 设置IP段
# 如1=10.110.10-11.1-20
# 表示 10.110.10.1 ~ 10.110.10-11.20 以及 10.110

			
		

	





	

		

			

				
					
Perl Net::ping

				
			

			

				

					zhaoyangjian724的专栏
				

				

					01-23
					
					1066
					
				

			

		

		

			
				
use Net::Ping;
while (1==1){
        $host="202.101.172.35";
        $p = Net::Ping->new("icmp");
        print "$host is lost.\n" unless $p->ping($host,2);
     
}

   $p->close();

$proto
        sp

			
		

	





	

		

			

				
					
Perl 脚本测试网络连接

				
			

			

				

					davidliu007的专栏
				

				

					11-21
					
					879
					
				

			

		

		

			
				
Perl 脚本测试网络连接。

#!/usr/bin/perl

use IO::Socket;
use POSIX qw(strftime);
use vars qw($configfile @listen @filter @unknown @nlisten @pingable);

sub testConnect($$) {
    my ($host, $port) = @_;

			
		

	





	

		

			

				
					
Ping 1000个包看丢跑率

				
			

			

				

					zhaoyangjian724的专栏
				

				

					12-31
					
					9012
					
				

			

		

		

			
				
use warnings;    
use Net::Ping;  
 $J=0;
for ($i = 1;$i <= 1000;$i++){  
if ($#ARGV <0){    
   print "请输入一个参数\n";    
  exit(-1);    
}    
$host = $ARGV[0];    
$p = Net::Ping->new("icmp");

			
		

	





	

		

			

				
					
perl脚本实时监测重要网络设备以及服务器的连通性

				
			

			

				

					weixin_33912246的博客
				

				

					08-30
					
					330
					
				

			

		

		

			
				
几个月前开始着手做cacti相关的一些工作，使用cacti监控一些重要的网络设备以及服务器。cacti是基于snmp协议的，去轮询采集被监控设备的一些信息（流量 服务器资源使用情况等）。但有时会有一些设备因为轮询响应时间长或者没在规定的时间轮询到，而导致误报为snmp down，而实际并非如此。除了在调整cacti本身一些参数设置外，可以使用perl脚本实时监测这些设...

			
		

	





	

		

			

				
					
Smokeping安装指南：监控网络延迟

				
			

			

				

					
				

			

		

		

			
				
- 修改 `/usr/local/smokeping/bin/smokeping` 文件，设置rrdtool的Perl路径，确保程序能找到正确的库。 - 创建首页文件，这通常是通过复制 `/usr/local/smokeping/htdocs/smokeping` 文件到Apache服务器的适当目录...

			
		

	



              




          




        



    





    



      

      

        
      

      





	

		评论	
	

	
	




  

    

      添加红包
      
    

    

      

        
        

          
          
        

        
请填写红包祝福语或标题

      

      

        
        

          
          个
        

        
红包个数最小为10个

      

      

        
        

          
          元
        

        
红包金额最低5元

      

      

        
        

          当前余额3.43元
          前往充值 >
        

      

      

        

          需支付：10.00元
        

        
        
      

    

  





  

    
    
  

  

    
    
  








  

    

      

        

          

            
            
成就一亿技术人!

          

          

        

        

          

          

            领取后你会自动成为博主和红包主的粉丝
            规则
          

        

      

      

        

          

            
              
            
            

              
hope_wisdom
 发出的红包
            

          

        

        

          

          

          

        

      

    

    

  





	
打赏作者

	

		

		
			
		
		

		

			
scan724

			
你的鼓励将是我创作的最大动力

		

	

	

			

	

	

    ¥1
    ¥2
    ¥4
    ¥6
    ¥10
    ¥20
	

	

		

			

				

					扫码支付：¥1
				

				

					

					
					获取中
					

				

				

					
					
					扫码支付
				

			

		

		

			
您的余额不足，请更换扫码支付或充值

			
打赏作者

		

	



      
      

      
实付元

      
使用余额支付

      

        

          

            
            点击重新获取
          

        

        
扫码支付

      

      

        
          
            
          
          
        
      

      

        
        钱包余额
          0
          

            
            

              

                
抵扣说明：

                
 1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
 2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

              

            

          

      

      余额充值