perl 里的getnameinfo()函数以及其他通过IP反查域名的函数如何用，希望附代码。
自己试了很久，也许是自己主机DNS有问题，总是查询结果为UNDEF。除了127.0.0.1这一个自身的主机IP地址有结果。我不知道是代码有问题还是硬件方面有问题。求助，谢...
自己试了很久，也许是自己主机DNS有问题，总是查询结果为UNDEF。除了127.0.0.1这一个自身的主机IP地址有结果。我不知道是代码有问题还是硬件方面有问题。求助，谢谢
#!/usr/bin/perl
use strict;
use Socket::Class;
use Socket;
my $site = "119.75.213.50";
my $sock = Socket::Class->new(
'remote_addr' => $site,
'remote_port' => 'http',
'domain' => 'inet',)
or die Socket::Class->error;
my $addr = $sock->remote_addr;
print "$addr\n";
my $name = $sock->get_hostname($sock->remote_addr);
print "$name\n"; 展开
#!/usr/bin/perl
use strict;
use Socket::Class;
use Socket;
my $site = "119.75.213.50";
my $sock = Socket::Class->new(
'remote_addr' => $site,
'remote_port' => 'http',
'domain' => 'inet',)
or die Socket::Class->error;
my $addr = $sock->remote_addr;
print "$addr\n";
my $name = $sock->get_hostname($sock->remote_addr);
print "$name\n"; 展开
2个回答
展开全部
Returns the first hostname found, or UNDEF on error. Use errno() and error() to retrieve the error code and message.
你看下cpan上的介绍
你看下cpan上的介绍
参考资料： http://search.cpan.org/~chrmue/Socket-Class-2.256/Class.pod#get_hostname
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
Storm代理
2023-07-25 广告
StormProxies是一家国内优质海外HTTP代理商，拥有一个庞大的IP资源池，覆盖200多个地区，IP数量大且匿名度高。其优点还包括超高并发、稳定高效、技术服务等特点，同时提供HTTP、HTTPS以及SOCKS5协议支持。此外，Sto...
点击进入详情页
本回答由Storm代理提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
