精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>电脑技术>>● UNIX>>◆网络应用◆>>gethostip.pl (code) 从DNS 查IP

主题:gethostip.pl (code) 从DNS 查IP
发信人: [email protected].()
整理人: wwwyyyxxx(1999-08-23 21:42:01), 站内信件

发现好多人问我要IP, 现在把我常用script 贡献给大家.
发法很多, 一个是 nslookup host.name

另一简单方法是用如下script :

#!/usr/local/bin/perl
# gethostbyname.pl  - Answer IP queries

$prog = substr ($0, rindex ($0, '/') + 1);

if ($#ARGV != 0) {
   die "usage: $prog ( hostname )\n"; }
&name_to_address ($ARGV[0]);
exit (0);

sub name_to_address { local ($name) = shift (@_); local (@octets);
   local ($nam, $aliases, $addrtype, $length, $address) =
      gethostbyname ($name);

   if (! length ($address)) { die "$prog: no address found for $name\n"; }
   @octets = unpack ("CCCC", $address);
   print (join ('.', @octets[0..3]), "\n"); }

--
blast        email :   [email protected]

http://www.trail.com/~honglu/
美国新墨西哥州沙滩驿站
New Mexico Sandland BBS

telnet  blast.dyn.ml.org

[关闭][返回]