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 };