perl – 如何删除空哈希值？

发布时间：2020-12-16 06:27:28 所属栏目：大数据来源：网络整理

导读：我试图弄清楚如何删除返回值{}的哈希条目. 我正在做这样的事情; if (ref($snapshots{"ID:$id"}) eq "{}") { print "ID $id hash no snapshotsn";} 它似乎不起作用.有任何想法吗？解决方法鉴于{},ref将为“HASH”而不是“{}” if (ref $snapshots{"ID:$i

我试图弄清楚如何删除返回值{}的哈希条目.

我正在做这样的事情;

if (ref($snapshots{"ID:$id"}) eq "{}") {
    print "ID $id hash no snapshotsn";
}

它似乎不起作用.有任何想法吗？

解决方法

鉴于{},ref将为“HASH”而不是“{}”

if (ref $snapshots{"ID:$id"} eq 'HASH' && !scalar keys %{$snapshots{"ID:$id"}}) {
    delete $snapshots{"ID:$id"};
}

（编辑：李大同）

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