Perl gethostbyname

发布时间：2020-12-16 00:40:43 所属栏目：大数据来源：网络整理

导读：?我们如何把域名翻译成IP地址呢，这个功能可以通过Perl的 gethostbyname函数来完成，虽然我不知道是否其它的办法，因为我使用这个方法一下子就完成了我脑海中想要完成的操作。比如，我有一个文本文件，里面保存着一些网址，如下： ? www.baidu.com www.qq.c

?我们如何把域名翻译成IP地址呢，这个功能可以通过Perl的 gethostbyname函数来完成，虽然我不知道是否其它的办法，因为我使用这个方法一下子就完成了我脑海中想要完成的操作。

比如，我有一个文本文件，里面保存着一些网址，如下：

www.baidu.com

www.qq.com

www.163.com

www.sina.com

www.google.com.hk

我想把它们的IP地址解析出来，看下面拙劣代码的实现。

 
 
open(F,'<','./url.txt')?or?die?"不能打开文件?:$!n";?
  
  while(<F>)?
  
  {?
  
  ????die?"主机名不存在"?unless?defined?gethostbyname($_);?
  
  ????chomp;?
  
  ????$ip_addr=gethostbyname($_);?
  
  ????$packed_ip_addr=inet_ntoa($ip_addr);?
  
  ????print?"$_","==>","$packed_ip_addr"."n";?
  
  }?
  
  ?
  
  exit?1;?

结果：

 
 
www.baidu.com==>61.135.169.105?
  
  ?
  
  www.qq.com==>123.129.194.144?
  
  ?
  
  www.163.com==>58.248.245.40?
  
  ?
  
  www.sina.com==>202.108.33.74?
  
  ?
  
  www.google.com.hk==>74.125.71.147?

这种立杆见影的高效让我非常高兴的以为，原来编程这么简单。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!