檢查'哈希鍵字符串'是否包含perl中的一個字

Question

我想檢查一個特定的字是否存在於哈希鍵中。

我試圖以下列方式：

while (($key, $value) = each(%hash)) 
{ 
    if($key =~ /\b$some_word\b/) 
    { 
     print"$key contains $some_word \n"; 
    } 
} 

我的問題是有同樣的任何內置功能或者是有什麼替代方法？

Answer 1

use warnings; 
use strict; 

my %hash = (
    'foo' => 1, 
    'foo bar' => 2, 
    'bar' => 3, 
    'food' => 4 
); 

my $some_word = "foo"; 

for (grep /\b\Q$some_word\E\b/, keys %hash) 
{ 
    print "$_ contains $some_word (value: $hash{$_})\n" 
} 

更新：包括價值爲好。

更新2：感謝，虛己，提出了這個報價字面修飾符（\Q...\E），這通常是一個好主意，把一個變量爲正則表達式時。它確保變量中的任何內容都不會被解釋爲正則表達式元字符。