如何从Perl中数组引用哈希删除键

Question

我想删除的数组引用哈希的关键：

如果“钥匙”，我想删除是“测试”，我试过的东西像

$Test = 'Test'; 

foreach my $k (keys %{$line}) { 
    @{$line->{$k}} = grep @{$line->{'$Test'}} != 0, @{$line->{$k}}; 
} 

但我无法将其删除！有人可以告诉我如何删除它吗？

Answer 1

perl delete操作执行此操作。参见perlfunc手册：

删除EXPR

鉴于指定的哈希元素，数组元素的散列切片，或阵列切片的表达，删除从哈希或数组中指定的元件（一个或多个） 。在数组的情况下，如果数组元素恰好处于末尾，则数组的大小将缩小到对exists（）（）存在测试为true的最高元素（如果不存在此类元素，则为0）。

在此讨论：

• How do I completely remove a key/value pair from my hash?
• 5.3. Deleting from a Hash
• How should I delete hash elements while iterating?