perl - 如何检查perl中的哈希引用是否为空

Question

我需要测试，我的 hashref 是否包含 0 个元素。
我使用了这个代码:

$self = { fld => 1 };
%h = ( "a" => "b" );
$self->{href} = { %h };
print STDERR $self->{href}{ "a" };
print STDERR "\n";
print "size of hash:  " . keys( %h ) . ".\n";
print "size of hashref:  " . keys( $self->{href} ) . ".\n";

它适用于 perl 5.16，但在 perl 5.10 中失败:

Type of arg 1 to keys must be hash (not hash element) at - line 7, near "} ) "
Execution of - aborted due to compilation errors.

Answer 1

如果你用

%hash

对于哈希，你会使用

%{ $hash }

作为引用，所以它是

keys %{ $self->{href} }

注意:在某些版本的 Perl 中， keys接受引用。然而，这是一个被放弃的实验性功能。一个人不应该使用它。