perl - Perl:将哈希键与正则表达式匹配

Question

我想知道Perl是否具有内置方法来检查是否存在具有与特定正则表达式匹配的键的哈希元素。例如：

my %h = ( 'twelve' => 12, 'thirteen' => 13, 'fourteen' => 14 );

我想知道是否有任何方法可以做到这一点：

print "We have 12\n" if exists $h{twelve};
print "We have some teens\n" if exists $h{/.*teen$/};

Answer 1

smart match operator执行此操作（自Perl v5.10起可用）。

$a      $b        Type of Match Implied    Matching Code
======  =====     =====================    =============
...
Regex   Hash      hash key grep            grep /$a/, keys %$b
...

用法示例：

# print if any key in %h ends in "teen"
print "We have some teens\n" if /.*teen$/ ~~ %h;