Perl的簡單的哈希按值

Question

刪除我在Perl中的哈希存儲簡單的鍵值查找如下圖所示

'a' => hello 
'b' => world 
'c' => hellooo 

我想有效地刪除具有模式「你好」的所有鍵值對在他們中。提前

Answer 1

您可以使用hash slice這裏這是很容易有可能通過grep 感謝。散列片返回與鍵列表關聯的值。

要一次刪除鍵/值對，你可以做這樣的事情..

my $regex = qr/hello/; 
delete @h{ grep { $h{$_} =~ $regex } keys %h }; 

Answer 2

for (keys %h) { 
    delete $h{$_} if $h{$_} =~ /hello/; 
} 

delete $h{$_} for grep { $h{$_} =~ /hello/ } keys %h; 

delete @h{ grep { $h{$_} =~ /hello/ } keys %h };