本文受http://wangxiaoyu.blog.51cto.com/922065/514570这篇文章的感染，就模拟用perl写了一个，供参考。呵呵...

本脚本运行环境：

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)：

#!/usr/bin/perl use Encode; require "qqwry.pl";  my $HOST=$ARGV[0]; my @ip_total; my @ip_totals; my $Myip;  @ip_total=&get_domain_ip($HOST); &print_information;  #输出域名解析IP sub get_domain_ip(){ open(IP,"-|","host","$_[0]"); while(<IP>){    if( $_=~m /(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/ ){        push(@ip_totals,$1);     } } close IP;        return @ip_totals; }  #输出本地出口IP sub get_local_network(){ open(MYIP,"elinks --dump http://checkip.dyndns.org/|"); while(<MYIP>){         ~m /(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/;         $Myip=$1;         return $Myip;  } }  #获取IP地址 sub print_addr(){     $ip_address=decode("gbk",ipwhere($_[0]));     return encode("utf8",$ip_address)."\n"; }  #输出响应代码 sub response_code(){ open(RESPONSE,"curl -H \"host:$HOST\" -o /dev/null -s -w \"%{http_code} %{time_connect}\" \"$_[0]\" |"); while(<RESPONSE>){     return $_; } close RESPONSE; #print $response_code."\n"; }  #打印基本信息 sub print_information(){      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; print "IP地址\t\t\t响应代码\t\tTCP连接时间\t\tISP服务商\n";     for(@ip_total){       my $ip=$_;       print $ip."\t\t";             @response_code_time=split(" ",&response_code($ip));       print $response_code_time[0]."\t\t\t";       print $response_code_time[1]."\t\t\t";       print &print_addr($ip);      } }

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

哈哈。

效果如下:

如果想了解更多，请关注我们的公众号
公众号ID:opdevos
扫码关注