Perl脚本检测一个域名是否有效
更新时间:2020年6月29日 13:42 点击:1704
脚本功能:通过ICMP Ping或TCP/SYN探测指定的域名,探测前检测域名是否有效。
file: check.host.pl #!/usr/bin/perl use 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 OK sub 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.net ERR: query 2013.jb51.net failed: NXDOMAIN 2013.jb51.net is DOWN ! # ./check.host.pl www.jb51.net ACK Reply from www.jb51.net[173.255.214.254] time=307.04 ms www.jb51.net is online ! # ./check.host.pl jb51.net icmp Echo Reply from jb51.net[173.255.214.254] time=205.61 ms jb51.net is online ! # ./check.host.pl chinagfw.com icmp PING Request for chinagfw.com timed out. chinagfw.com is DOWN !
相关文章
- 本文为那些对学习 Windows PowerShell 命令行和脚本编写环境感兴趣的系统管理员提供了资源。也请告诉我们本网站如何才能对您更有用处。...2020-06-30
- 这篇文章主要介绍了Shell脚本中让进程休眠的方法,本文讲解的就是sleep的用法,可以实现睡觉若干秒、若干分钟、若干小时,需要的朋友可以参考下...2020-07-11
详解nginx同一端口监听多个域名和同时监听http与https
这篇文章主要介绍了详解nginx同一端口监听多个域名和同时监听http与https的相关资料,需要的朋友可以参考下...2017-07-06JavaScript 实现自己的安卓手机自动化工具脚本(推荐)
这篇文章主要介绍了 JavaScript 实现自己的安卓手机自动化工具脚本,本文给大家介绍的非常详细,对大家的学习或工作具有一定的参考借鉴价值,需要的朋友可以参考下...2020-05-14- 这两天在用Perl编写一些监控脚本,其实写代码也是一件挺有意思的事情,就是挺废时间的。而且,由于语法不太熟,基本想到一个东西都要先Google一下看怎么实现。...2020-06-29
- 这篇文章主要介绍了自动设置安卓手机wifi代理的PowerShell脚本,帮助大家进行抓包测试,感兴趣的朋友可以了解下...2020-10-17
- 下面小编就为大家带来一篇Perl与JS的对比分析(数组、哈希)。小编觉得挺不错的,现在就分享给大家,也给大家做个参考。一起跟随小编过来看看吧...2020-06-29
- 一、简介 模式指在字符串中寻找的特定序列的字符,由反斜线包含:/def/即模式def。其用法如结合函数split将字符串用某模式分成多个单词:@array = split(/ /, $line);二、匹配...2020-06-29
- Perl时间函数localtime的使用介绍,这里简单的介绍下,更多请查看官方介绍...2020-06-29
- 这篇文章主要介绍了Perl中的特殊内置变量详细介绍,需要的朋友可以参考下...2020-06-29
- 这篇文章主要介绍了讲Perl中的本地时间与UNIX时间戳间相互转换的方法,主要用到了Perl中的Date::Parse模块,需要的朋友可以参考下...2020-06-29
- 一、列表 列表是包含在括号里的一序列的值,可以为任何数值,也可为空,如:(1, 5.3 , "hello" , 2),空列表:()。 注:只含有一个数值的列表(如:(43.2) )与该数值本身(即:43.2 )是不同...2020-06-29
- PHP IP地址格式检测函数复制代码 代码如下:function checkIp($ip){ $ip = str_replace(" ", "", $ip); $ip = strtolower($ip); $ip= str_replace("http://", "", $ip); $ip= str_replace("https://", ""...2013-10-04
- 对所有输入文件,如果没有版权信息则加上版权信息,否则什么都不做,并对原文件以.bak结尾备份,需要的朋友可以参考下...2020-06-29
- 这篇文章主要介绍了Perl学习笔记之CPAN使用介绍,本文讲解了什么是CPAN、CPAN的目录作用介绍、CPAN安装Perl Module的两种方法等内容,需要的朋友可以参考下...2020-06-29
- 这篇文章主要介绍了Perl AnyEvent中的watcher实例,关于AnyEvent请参阅的更多介绍请参阅文中的相关链接,需要的朋友可以参考下...2020-06-29
- 这篇文章主要介绍了C#域名解析简单实现方法,可实现针对域名解析显示出主机名、IP地址、别名等功能,需要的朋友可以参考下...2020-06-25
- 这篇文章主要介绍了Jmeter如何基于命令行运行jmx脚本,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友可以参考下...2020-07-22
- 弄懂shell程序,源代码,以及python脚本能够向运维开发方向走,shell程序能够管理集群,提高开发的效率,shell是命令解释器,调用系统内核,帮助你对内核的刷新认识...2021-09-06
- perl获取日期与时间的例子,供大家学习参考...2020-06-29