麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 編程 > Perl > 正文

Perl腳本檢測一個域名是否有效

2020-06-04 20:32:07
字體:
來源:轉載
供稿:網友

腳本功能:通過ICMP Ping或TCP/SYN探測指定的域名,探測前檢測域名是否有效。

file: check.host.pl#!/usr/bin/perluse strict;use Net::Ping;use Net::DNS;use Time::HiRes qw();$| = 1;my $DEFAULT_TIMEOUT = 2;my $PING_TIMEOUT = 2;my $DNS_TIMEOUT = 3;### 查詢域名是否有效sub queryDomain {  my $domain = shift();  my $query = '';  my $dns  = Net::DNS::Resolver->new(    tcp_timeout => $DNS_TIMEOUT, udp_timeout => $DNS_TIMEOUT, retry => 1  );  my @nameservers = qw/8.8.8.8 114.114.114.114/;  $dns->nameservers(@nameservers);  eval {	$query = $dns->search($domain,'A');  };  if ($@ or ! $query) {    my $err = $dns->errorstring ;    print "ERR: query $domain failed: $errn";    return if ($err =~ /NXDOMAIN/);  }  return 'OK';}### return nothing is FAILED, other is OKsub pingHost {  my $arg = shift();  return 1 if (ref $arg ne 'HASH');  my $p;  eval { $p = Net::Ping->new($arg->{'proto'},$DEFAULT_TIMEOUT,0) };  if ($@) { 	warn "ERR to create Net::Ping object: $@n";     return;  }	  $p->hires();  my ($host,$duration,$hip,$rep,$ret);  ### tcp/syn ping  if ($arg->{'proto'} eq "syn") {	$p->{port_num} = $arg->{'port'};	$p->ping($arg->{'host'},$PING_TIMEOUT);	if (($host,$duration,$hip) = $p->ack()) {	  printf("ACK Reply from $arg->{'host'}[%s] time=%.2f msn", $hip, $duration * 1000);      $ret = 'OK';    } else {      warn "SYN Request for $arg->{'host'} timed out.n";	}  }    ### icmp ping  else {    ($rep,$duration,$hip) = $p->ping($arg->{'host'},$PING_TIMEOUT);    if ($rep) {      printf("Echo Reply from $arg->{'host'}[%s] time=%.2f msn", $hip, $duration * 1000);      $ret = 'OK';    }	else {      warn "PING Request for $arg->{'host'} timed out.n";  	}  }  $p->close;  undef($p);  return $ret;}my $ARG = { proto => 'syn', port => 80 };my $host = $ARGV[0];my $proto = $ARGV[1];die "Usage: $0 [icmp]n" if (! $host);$ARG->{'host'} = $host;$ARG->{'proto'} = $proto if ($proto);my $code;if (&queryDomain($host) eq 'OK' and $code = &pingHost($ARG)) {  print "$host is online !n";}else {  print "$host is DOWN !n";}

測試例子:

# ./check.host.pl 2013.jb51.netERR: query 2013.jb51.net failed: NXDOMAIN2013.jb51.net is DOWN !# ./check.host.pl www.jb51.netACK Reply from www.jb51.net[173.255.214.254] time=307.04 mswww.jb51.net is online !# ./check.host.pl jb51.net icmpEcho Reply from jb51.net[173.255.214.254] time=205.61 msjb51.net is online !# ./check.host.pl chinagfw.com icmpPING Request for chinagfw.com timed out.chinagfw.com is DOWN !

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 国产精品久久久久久久不卡 | 欧美在线观看禁18 | 婷婷久久综合九色综合色多多蜜臀 | 男男羞羞视频网站国产 | 久久成人激情视频 | 黑人一区二区三区四区五区 | 九九热视频免费 | 鲁久久| 一区国产精品 | 亚洲视频综合网 | 国产资源在线观看视频 | 日韩精品久久久久久久电影99爱 | 又黄又爽免费无遮挡在线观看 | 91看片淫黄大片欧美看国产片 | 久久久久久久久久久久久久久伊免 | 久久久久久久亚洲精品 | 万圣街在线观看免费完整版 | 久久成人激情视频 | 黄色av电影在线播放 | 久久精品99国产国产精 | 亚洲午夜久久久久 | 亚洲一区国产二区 | 国产喷白浆10p | 精品99在线视频 | 久久国产精品久久久久久电车 | 午夜在线观看视频网站 | 国产欧美在线观看不卡一 | 国产一区二区三区四区波多野结衣 | 欧美一级不卡视频 | 国产亚洲精品综合一区91555 | 日本在线一区二区 | 日本高清视频网站www | 国产一区二精品区在线 | av中文一区| 久久亚洲春色中文字幕久久 | 久久经典国产视频 | 97超级碰碰人国产在线观看 | 国产一区二区久久精品 | 亚洲视频在线网 | 欧美精品1区 | 136福利视频|