Net::Ping模块实现自己的主机存活检测工具

点击(此处)折叠或打开

1. #!/usr/bin/perl -w
   
2. # name:Ping.pl
   
3. # 以syn协议检测目标,
   
4. # 来源： Lover的工具小屋
   
5. # author: Lover
6. 
   
7. use strict;
   
8. use Net::Ping;
   
9. my @hosts = qw(xx100.my4399.com xx10.my4399.com);
   
10. 
    
11. =pod
    
12. my ($host,$rtt,$ip);
    
13. my $p = Net::Ping->new('syn');
    
14.    $p->port_number(80);
    
15. 
    
16. # 这里演示syn的用法
    
17. foreach $host (@hosts){
    
18.         # 对方收到俺的syn之后进入syn_recv状态，在等待俺给回一个ack
    
19.         $p->ping($host);
    
20. }
    
21. # 这里给对方发送了一个ack包，以结束对方的syn_recv的状态，防止将没有对syn攻击进行防范的主机拖进很难堪的境地
    
22. while (($host,$rtt,$ip) = $p->ack) {
    
23.         print("HOST: $host [$ip] ACKed in $rtt seconds.\n");
    
24. }
    
25. $p->close();
    
26. =cut
    
27. 
    
28. # 用icmp协议来检测主机
    
29. my $p = Net::Ping->new('icmp');
    
30. my ($host,$ret,$duration,$ip);
    
31. # 显示开启响应时间处理函数,以微秒为单位
    
32.    $p->hires(1);
    
33. foreach $host (@hosts){
    
34.         ($ret,$duration,$ip) = $p->ping($host,1);
    
35.         if ($ret){
    
36.                 printf("$host [$ip] is alive (packet return time: %0.2f ms)\n",1000*$duration);
    
37.         }else{
    
38.                 printf("$host [$ip] is down\n");
    
39.         }
    
40. }
    
41. 
    
42. $p->close();