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