简单测试dns列表中的dns服务器是否可用

最新推荐文章于 2025-07-27 14:45:11 发布

原创最新推荐文章于 2025-07-27 14:45:11 发布 · 2.3k 阅读

0 ·

CC 4.0 BY-SA版权

本文介绍了一个使用Perl编写的脚本，该脚本能批量测试DNS服务器是否能成功解析指定域名，并将无法解析的DNS服务器记录下来进行进一步分析。

#!/usr/bin/perl -w  
 
  
use strict;
use warnings; 
 
 
open FH, "list" or die("can't not open list\n");   

while (my $myline = <FH>) {    
	chomp $myline ;  
	if(length($myline)>0)
	{
		my $cmd = "dig www.sina.com @".$myline;
		my $ret = `$cmd`;
		if(length($ret)<10 || $ret =~  /timed/s )
		{
			print $ret;
			 
		}
		else
		{
			if(open(FHRET, '>>', "success"))
			{
				print FHRET $myline."\n";
				close(FHRET);
			}
		}
	}	  
}  
close FH;  

#注：只有无法解析www.sina.com的会得到结果 ;; connection timed out; no servers could be reached,正常解析的是不会出现timed out这个东西的