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

发布时间：2020-12-15 23:35:33 所属栏目：大数据来源：网络整理

导读：我需要测试,我的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: " .

我需要测试,我的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.

解决方法

如果你使用

%hash

对于哈希,你会使用

%{ $hash }

作为参考,所以它是

keys %{ $self->{href} }

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!