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

gethostbyname?

On 6月30日, 下午7时52分, Anthony WU <anthonywu...@gmail.com> wrote:
> 不直接用 nslookup ?
>
>
>
>
>
> -------- Original Message --------
> Subject: [PerlChina] Re: 请教两个foreach嵌套的问题，谢谢
> From: Ericzhao82 <ericzha...@gmail.com>
> To: perlchina@googlegroups.com
> Date: 30/6/2009 13:53
> > 能说下原因吗？谢谢
>
> > 2009/6/30 <redic...@gmail.com <mailto:redic...@gmail.com>>
>
> > 少用 foreach (<FH>)这种写法
> > 用while
> > On Jun 30, 2009 10:46am, Ericzhao82 <ericzha...@gmail.com
> > <mailto:ericzha...@gmail.com>> wrote:
> > > 小脚本实现的目的
>
> > > 1.通过dig $domain 返回的结果，从中截取IP地址
> > > 2.向这些IP地址，发$domain的Host头的HTTP请求。
>
> > > 例如:
>
> > > 1.digwww.163.com<http://www.163.com>
> > > 2.返回61.135.253.16
>
> > > 然后做，curl "Host:www.163.com<http://www.163.com>"
> > http://61.135.253.16
>
> > > 下面是我写的小脚本，可是返回结果有问题，会将第一个CNAME地址打印
> > 出来，例如"
> > > Domain is:www.163.com<http://www.163.com>
>
> > > IP is: news-biz.cache.163.gslb.netease.com
> > <http://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<http://www.163.com>
> > > news.163.com <http://news.163.com>
> > > ........................
> > > ........................
>
> > &gt
>
> > --
> > ................................................
> > Ericzhao
>
> > Email: Ericzha...@gmail.com <mailto:Ericzha...@gmail.com>
> > MSN: Ericzhao...@hotmail.com <mailto:Ericzhao...@hotmail.com>
> > BLOG: share82.freebsder.info <http://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 访问该论坛
-~----------~----~----~----~------~----~------~--~---