起因:狠狠心买了个iphone5,教育网连app store下载的速度过于悲剧,遂计划扫描itunes下载服务器群的ip集,选个最快的改hosts。

网上搜到itunes下载服务器区段在a1~a2000.phobos.apple.com,网上也有人做过和我同样的事,不过那个网贴中给出的ip地址多数已失效,还是自己尝试更新靠谱...

扫描脚本用Perl实现:

 1 #!perl
 2 #获取itunes 下载服务器ip地址集
 3 use Socket;
 4 
 5 my @group=1..2000;
 6 my $domain;
 7 my $name;
 8 my %ip;
 9 foreach(@group)
10 {
11     $domain = "a".$_.".phobos.apple.com";
12     $name = gethostbyname($domain) or die "Can't resolve $address: $!\n";
13     my $addr=inet_ntoa($name);
14     if(!exists $ip{$addr}) {$ip{$addr} = 1;}
15 }
16 open OUTPUT,'>iplist.txt' or die "open file failed!";
17 foreach (keys %ip)
18 {
19     print OUTPUT $_."\n";
20 }

 

posted on 2012-12-17 21:05  longlee  阅读(596)  评论(0)    收藏  举报