perl脚本获取域名对应ip

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

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

扫描脚本用Perl实现：

#!perl
#获取itunes 下载服务器ip地址集
use Socket;

my @group=1..2000;
my $domain;
my $name;
my %ip;
foreach(@group)
{
    $domain = "a".$_.".phobos.apple.com";
    $name = gethostbyname($domain) or die "Can't resolve $address: $!\n";
    my $addr=inet_ntoa($name);
    if(!exists $ip{$addr}) {$ip{$addr} = 1;}
}
open OUTPUT,'>iplist.txt' or die "open file failed!";
foreach (keys %ip)
{
    print OUTPUT $_."\n";
}