一个IP转换为主机名的脚本

home

不知道怎么错，请指正！

#!/usr/bin/perl -w
use strict;
use Socket;
my $address_pat= '^/d+\.\d+\.d+\.d+$';
while (<>) {
chomp;
die "$_: Not a valid address" unless /$address_pat/o;
my $name=gethostbyaddr (inet_aton($_),AF_INET);
$name ||= '?' ;
print "$_ => $name\n";
}

运行：
# perl name_trans.pl <address
202.96.103.252: Not a valid address at name_trans.pl line 7, <> chunk 1.

这样也不行，WHY ？？
#!/usr/bin/perl -w
my $address= "202.96.103.252";
my $name=gethostbyaddr( inet_aton($address) , AF_INET);
print "$name\n";

ivanhero

我还没学PERL，不过我的第七感告诉我这个脚本对我有用，请问它的作用是什么？能对动态IP绑定域名有帮助吗？

royce

这个脚本就是你输入一个IP然后通过perl的sock里的gethostbyaddr函数获得他的主机名，它还有另一个函数可以通过主机名来获得IP地址，其实perl有非常强大的功能，只是以前在中国它只被用来写CGI程序而已，用perl写一些使用的程序绝对比shell好