如何從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?