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;
}} ;
$var=&check_dns("$ARGV[0]");
print "$var\n";
v-dev-redis01:/root# perl a1.pl www.zjtest.com
1
If a default timeout ($def_timeout) in seconds is provided, it is used when a timeout is not given to the ping() method (below). The timeout must be greater than 0 and the default, if
not specified, is 5 seconds.
keepalived 监测域名解析脚本
最新推荐文章于 2024-08-12 08:56:59 发布
该博客介绍了如何利用Perl脚本`a1.pl`结合`LWP::UserAgent`和`Net::Ping`模块检查域名解析是否正常及网络是否可达。通过调用`check_dns`子例程,传入域名参数,脚本会返回1表示成功,0表示失败。示例中,脚本成功检测到`www.zjtest.com`并返回1。
摘要由CSDN通过智能技术生成