改写了一个shell写的cdn节点测试代码

本脚本运行环境：

badboy@www:~$more /etc/issue
Ubuntu 10.04.2 LTS \n \l

badboy@www:~$ perl -v

This is perl, v5.10.1 (*) built for i486-linux-gnu-thread-multi

脚本如下(cdn_test.pl)：

1. #!/usr/bin/perl 
2. use Encode; 
3. require "qqwry.pl"; 
4.  
5. my $HOST=$ARGV[0]; 
6. my @ip_total; 
7. my @ip_totals; 
8. my $Myip; 
9.  
10. @ip_total=&get_domain_ip($HOST); 
11. &print_information; 
12.  
13. #输出域名解析IP 
14. sub get_domain_ip(){ 
15. open(IP,"-|","host","$_[0]"); 
16. while(<IP>){ 
17.    if( $_=~m /(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/ ){ 
18.        push(@ip_totals,$1); 
19.     } 
20. } 
21. close IP; 
22.        return @ip_totals; 
23. } 
24.  
25. #输出本地出口IP 
26. sub get_local_network(){ 
27. open(MYIP,"elinks --dump http://checkip.dyndns.org/|"); 
28. while(<MYIP>){ 
29.         ~m /(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/; 
30.         $Myip=$1; 
31.         return $Myip; 
32.  } 
33. } 
34.  
35. #获取IP地址 
36. sub print_addr(){ 
37.     $ip_address=decode("gbk",ipwhere($_[0])); 
38.     return encode("utf8",$ip_address)."\n"; 
39. } 
40.  
41. #输出响应代码 
42. sub response_code(){ 
43. open(RESPONSE,"curl -H \"host:$HOST\" -o /dev/null -s -w \"%{http_code} %{time_connect}\" \"$_[0]\" |"); 
44. while(<RESPONSE>){ 
45.     return $_; 
46. } 
47. close RESPONSE; 
48. #print $response_code."\n"; 
49. } 
50.  
51. #打印基本信息 
52. sub print_information(){  
53.     printf "本地出口ip:%s\n归属ISP服务商:%sWeb网站域名：%s\n解析得到的IP:%s个IP地址\n\n开始测试 ......\n\n\n",&get_local_network(),&print_addr($Myip),$HOST,$#ip_total+1; 
54. print "IP地址\t\t\t响应代码\t\tTCP连接时间\t\tISP服务商\n"; 
55.     for(@ip_total){ 
56.       my $ip=$_; 
57.       print $ip."\t\t";       
58.       @response_code_time=split(" ",&response_code($ip)); 
59.       print $response_code_time[0]."\t\t\t"; 
60.       print $response_code_time[1]."\t\t\t"; 
61.       print &print_addr($ip); 
62.      } 
63. } 

 感谢原作者，让我学习了不少新东东。。。

哈哈。

效果如下:

本文转自hahazhu0634 51CTO博客，原文链接：http://blog.51cto.com/5ydycm/555164，如需转载请自行联系原作者