1

私はここで何か間違ったことをしていますが、何がわかりません。この小さなプログラムは、リストされている4つのIPv4アドレスを取得し、hostentのgethost（）を使用してドメインを解決することになっています。失敗した場合は、IPv4形式を維持します。

出力：

180.76.5.59 has a hostname of 180.76.5.59
199.200.9.44 has a hostname of 199.200.9.44

次に、私が受け取っているエラー：

 Can't locate object method "137.48.78.181" via package "Net::hostent" at
     ./rev.pl line 19 (#1)
 (F) You called a method correctly, and it correctly indicated a package
 functioning as a class, but that package doesn't define that particular
 method, nor does any of its base classes.  See perlobj.

Uncaught exception from user code:
Can't locate object method "137.48.78.181" via package "Net::hostent" at ./rev.pl line 19.
 at ./rev.pl line 17

17：if（my $ h = gethost（$ host））19：$ name =（$ h-> $ name（））;

コード：

#!/usr/bin/perl

use Modern::Perl;

use Net::hostent;
use diagnostics;

my @ipaddresses = qw/ 180.76.5.59 199.200.9.44 137.48.78.181 137.48.185.207 /;
#host 137.48.78.181
foreach my $host ( @ipaddresses )
{
  my $name = $host;

  # my @sysArg = ("host", $host);
  # system(@sysArg);

 if ( my $h = gethost($host) )
 {
  $name = ($h->$name());
 }
  print "$host has a hostname of $name\n";
}

システムホストコマンドをコメントアウトしたことに気付くでしょう。これを使用すると、正常に機能しますが、ドメインをキャプチャする（そして出力を無音にする）方法を考えていません。どんな助けでも大歓迎です。

system（@sysArg）;を使用する場合 私はこれを手に入れます：

Host 59.5.76.180.in-addr.arpa not found: 2(SERVFAIL)
Host 44.9.200.199.in-addr.arpa. not found: 3(NXDOMAIN)
181.78.48.137.in-addr.arpa domain name pointer pc-78-181.hpr.unomaha.edu.
207.185.48.137.in-addr.arpa domain name pointer pki174b-01.ist.unomaha.edu.
4

2 に答える 2

3

逆引き参照はを使用して行われますgethostbyaddr。

use Net::hostnet qw( gethostbyaddr );
use Socket       qw( inet_aton );

my $h = gethostbyaddr(inet_aton($ip)));
say $h->name;   # Not $h->$name
于 2012-11-08T23:59:18.657 に答える
1

$印章を置き忘れました。

このコード：

$name = ($h->$name());  # WRONG

...次のようになります：

$name = ($h->name());

Can't locate object method "137.48.78.181"これに関するヒント：の文字列値が$nameメソッド名として使用されていました。

于 2012-11-09T00:00:59.840 に答える