發現好多人問我要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 ) "; }
&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 "; }
@octets = unpack ("CCCC", $address);
print (join ('.', @octets[0..3]), " "); }
--
blast email :
[email protected];for $name "; }
http://www.trail.com/~honglu/ email :
[email protected];for $name "; }
美國新墨西哥州沙灘驿站
Negethostip.pl (code) 從DNS 查IP
發信站: 美國沙灘驿站(sandland) (Thu Oct 30 01:56:07 1997)
轉信站: Nease!news.nease.net!cLinux.ml.org!blast.dyn.ml.org!sandland
發現好多人問我要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 ) "; }
&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 "; }
@octets = unpack ("CCCC", $address);
print (join ('.', @octets[0..3]), " "); }
--
blast email :
[email protected];for $name "; }
http://www.trail.com/~honglu/ email :
[email protected];for $name "; }
美國新墨西哥州沙灘驿站
New Mexico Sandland BBSbsp; email :
[email protected];for $name "; }
telnet blast.dyn.ml.org; email :
[email protected];for $name "; }
