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

对IP遍历时，直接抛弃第一行就行了啊，何必非要使用正则去盼到是否是数字开头呢~

#dig +short www.163.com
www.cache.gslb.netease.com.
61.135.253.14
61.135.253.15
61.135.253.16
61.135.253.17
61.135.253.18
61.135.253.9
61.135.253.10
61.135.253.11
61.135.253.12

On 6月30日, 上午10时46分, Ericzhao82 <ericzha...@gmail.com> wrote:
> 小脚本实现的目的
>
> 1.通过dig $domain 返回的结果，从中截取IP地址
> 2.向这些IP地址，发$domain的Host头的HTTP请求。
>
> 例如:
>
> 1.digwww.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 访问该论坛
-~----------~----~----~----~------~----~------~--~---