perl - NetAddr 转储器输出

Question

NetAddr::IP::Compact尝试使用该功能时，我的脚本出现问题

my $var = new NetAddr::IP '127.0.0.1/8';
print Dumper $var;

输出是：

$VAR1 = bless({
     'addr' => '',
     'isv6' => 0,
     'mask' => '?????????????'
}, 'NetAddr::IP');

我的问题是为什么我没有看到这里填写的地址和掩码字段？

Use of uninitialized value in sort at blib/lib/NetAddr/IP.pm (autosplit into blib/lib/auto/NetAddr/IP/compactref.al) line 737.

Answer 1

因为 Data::Dumper 的默认设置很糟糕。

{
   local $Data::Dumper::Useqq = 1;
   print Dumper $var;
}