起因:狠狠心买了个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 }