同意，我以前的是这样的：
如何对IP地址进行域名反向查询一样.
use Socket;
@addresses = gethostbyname($name) or die "Can't resolve $name: $!n";
@addresses = map { inet_ntoa($_) } @addresses[4 .. $#addresses];
反向查询
use Socket;
$name = gethostbyaddr(inet_aton($address), AF_INET) or die "Can't
resolve $address: $!n";
Lin(林兴陆) wrote:
> perl -e "print join('.',unpack('C4',(gethostbyname('www.google.com
> <http://www.google.com>'))[4]));" ;
>
> 用unpack C4兼容性更好一点，W4似乎只在Windows下可解。
>
> 2009/8/11 Lin <[email protected] <mailto:[email protected]>>
>
> 这都什么跟什么啊... 大家不要误人子弟了啦
>
> C:\Users\Lin\Desktop>perl -e "print
> join('.',unpack('W4',(gethostbyname('www.goo
> gle.com <http://gle.com/>'))[4]));";
> 66.249.89.147
>
> %perl -e 'use Socket;my $packed_ip =
> gethostbyname("www.google.com");print
> <http://www.google.com%22%29;print/> inet_ntoa($packed_ip);' ;
> 64.233.189.147%
>
> 2009/8/10 Yuan Jiang <[email protected]
> <mailto:[email protected]>>
>
> http://blog.vetcafe.net/2009/07/perl_ping_dns.html
>
> 2009/8/10 cnhack TNT <[email protected]
> <mailto:[email protected]>>
>
> print $1 if qx/ping -c1 google.com/ <http://google.com/>
> =~ /\(([\d\.]+)\)/;
>
> 2009/8/10 imxae <[email protected]
> <mailto:[email protected]>>
>
> 在cpan 上搜来搜去,发现有的dns模块都太复杂了,不知道有没
> 有比较方面的用perl把域名转换为ip的简单代码?
>
>
>
>
--
Perl乐事 -- http://www.perlersh.org
我的博客 -- http://www.perlersh.org/blog.html
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛“PerlChina Mongers 讨论组”论坛。
要在此论坛发帖，请发电子邮件到 [email protected]
要退订此论坛，请发邮件至 [email protected]
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---
