发现好多人问我要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
|
|