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

不直接用 nslookup ?

-------- Original Message  --------
Subject: [PerlChina] Re: 请教两个foreach嵌套的问题，谢谢
From: Ericzhao82 <ericzhao82@gmail.com>
To: perlchina@googlegroups.com
Date: 30/6/2009 13:53

能说下原因吗？谢谢

2009/6/30 <redicaps@gmail.com>

少 用 foreach (<FH>)这种写法
用while

On Jun 30, 2009 10:46am, Ericzhao82 <ericzhao82@gmail.com> wrote:
> 小脚本实现的目的
>
> 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,"

> foreach $domain () {

>         open (IP,"dig +short $domain |") or die "$!\n";

>         foreach $ip () {

>                 print "IP is: $ip\n";
>                 print "Domain is: $domain\n";
>
>         }
>         close IP;
> }
> close DOMAIN;
>
>
>
> ＃namelist 文件
> www.163.com
> news.163.com
> ……………………
> ……………………
>
>
>
>
>
>
>

&gt

--
…………………………………………
              Ericzhao

Email:   Ericzhao82@gmail.com
MSN:    Ericzhao_82@hotmail.com
BLOG:   share82.freebsder.info

[]

--  Best Regards, 	Anthony WU

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

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