Geo IP查找上的Perl未定义错误

Question

我正在使用Geo::IP在ip地址上执行位置查找。 一切正常，直到我遇到不在geo ip查找数据库中的ip地址，并且程序突然关闭，出现此错误

Can't call method "city" on an undefined value at script.pl line 16.

当前代码如下所示

 $gi = Geo::IP->open("/usr/local/share/GeoIP/GeoLiteCity.dat", GEOIP_STANDARD);
 my $record = $gi->record_by_addr($key);
 my $city= $record->city;

关于如何绕过这个有什么建议吗？ 直到找到未在该模块中定义的ip地址之前，它都可以正常工作。

Answer 1

查看Geo :: IP源，如果IP地址不在数据库中，则返回undef 。 因此，要绕过该问题，您可以执行以下操作：

my $record = $gi->record_by_addr($key);
## check that $record is defined
if ($record) {
    my $city= $record->city;
    ...
}
else {
    # issue an error message if wanted
    warn "No record found for $key";
}

来自Geo :: IP来源的相关代码：

您正在使用的函数是record_by_addr 。 从源， record_by_addr为别名get_city_record_as_hash （参见perlref为用于创建功能的“变体”的语法）：

*record_by_addr = \&get_city_record_as_hash;

get_city_record_as_hash的代码如下：

#this function returns the city record as a hash ref
sub get_city_record_as_hash {
  my ( $gi, $host ) = @_;
  my %gir;
  @gir{qw/ country_code   country_code3   country_name   region     city 
           postal_code    latitude        longitude      dma_code   area_code 
           continent_code region_name     metro_code / } =
    $gi->get_city_record($host);

  return defined($gir{latitude}) ? bless( \%gir, 'Geo::IP::Record' ) : undef;
}

此代码使用$host （您提供的IP地址）作为参数运行get_city_record 。 如果get_city_record找到一条记录，则它返回的数据将填充%gir哈希。 子程序的最后一行使用[if-else的三进制形式]评估获取记录是否成功，并返回适当的结果。 它检查是否定义了$gir{latitude} ，如果是，它将创建并返回一个Geo::IP::Record对象（您可以使用诸如city等方法查询该对象）。 如果不是，则返回undef 。

查看最后一行的更简单方法是：

# is $gir{latitude} defined?
if (defined ($gir{latitude})) {
    # yes: create a Geo::IP::Record object with the data in %gir
    # return that object
    return bless( \%gir, 'Geo::IP::Record' )
}
else {
    # no: return undefined.
    return undef;
}

Answer 2

我建议您在这里需要Data::Dumper来告诉您$record发生了什么。 我猜想是record_by_addr($key); 是您问题的根源，并且由于$key在某种程度上不好，因此$record是未定义的。

因此，这将是固定的：

use Data::Dumper;
print Dumper \$record;

我猜$record将是未定义的，因此：

next unless $record; 

将跳过它。