Perl：如何循环检查Data::Dumper输出哈希的数组长度并处理

你可以通过以下代码实现需求：

# 遍历哈希的每个键值对
while (my ($key, $array_ref) = each %slownik2) {
    # 解引用数组引用，判断数组长度是否为1
    if (@$array_ref == 1) {
        # 执行打印操作，示例为打印键和对应的唯一元素
        print "键: $key, 对应值: $array_ref->[0]\n";
    }
}

代码说明： #

• each %slownik2会逐个返回哈希的键值对，每次循环将键赋值给$key，数组引用赋值给$array_ref
• 在Perl中，对数组引用使用@$array_ref可以解引用为数组，数组的元素个数直接通过@$array_ref的长度来判断
• 当数组长度等于1时，通过$array_ref->[0]取出数组中的唯一元素并打印，你可以根据需求修改打印的内容格式

如果你更习惯用keys遍历哈希，也可以用下面的写法：

foreach my $key (keys %slownik2) {
    my $array_ref = $slownik2{$key};
    if (@$array_ref == 1) {
        print "键: $key, 对应值: $array_ref->[0]\n";
    }
}

内容的提问来源于stack exchange，提问作者homcioq