regex - 检查“哈希键字符串”是否包含 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：感谢 kenosis，建议使用引号文字修饰符 ( \Q...\E)，这在将变量放入正则表达式时通常是一个好主意。它确保变量中的任何内容都不会被解释为正则表达式元字符。