腳本功能：通過icmp ping或tcp/syn探測指定的域名，探測前檢測域名是否有效。

?1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495 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: ; 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; }

測試例子：

?123456789101112131415 # ./check.host.pl 2013.jb51.net err: query 2013.jb51.net failed: nxdomain 2013.jb51.net is down ! # ./check.host.pl ack reply from ] time=307.04 ms 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 !