[PerlChina] 请教两个foreach嵌套的问题，谢谢

小脚本实现的目的

1.通过dig $domain 返回的结果，从中截取IP地址
2.向这些IP地址，发$domain的Host头的HTTP请求。

例如:

1.dig www.163.com
2.返回61.135.253.16

然后做，curl "Host: www.163.com" http://61.135.253.16

下面是我写的小脚本，可是返回结果有问题，会将第一个CNAME地址打印出来，例如"

Domain is: www.163.com

IP is: news-biz.cache.163.gslb.netease.com.

"

请指点一二，多谢了。

#!/usr/bin/perl -w

open (DOMAIN,"<namelist") or die "$!\n";
foreach $domain (<DOMAIN>) {
        open (IP,"dig +short $domain |") or die "$!\n";
        foreach $ip (<IP>) {
                print "IP is: $ip\n";
                print "Domain is: $domain\n";
        }
        close IP;
}
close DOMAIN;

＃namelist 文件
www.163.com
news.163.com
……………………
……………………


--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
 要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
 要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
 更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---