keepalived 监测域名解析脚本

最新推荐文章于 2025-01-30 20:21:26 发布

scan724

最新推荐文章于 2025-01-30 20:21:26 发布

阅读量971

点赞数

CC 4.0 BY-SA版权

分类专栏： keepalived

本文链接：https://blog.youkuaiyun.com/zhaoyangjian724/article/details/50512800

keepalived 专栏收录该内容

10 篇文章 ¥39.90 ¥99.00

订阅专栏

该博客介绍了如何利用Perl脚本`a1.pl`结合`LWP::UserAgent`和`Net::Ping`模块检查域名解析是否正常及网络是否可达。通过调用`check_dns`子例程，传入域名参数，脚本会返回1表示成功，0表示失败。示例中，脚本成功检测到`www.zjtest.com`并返回1。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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.