perl - 如何获取其键与给定正则表达式匹配的哈希元素？

Question

如何获取其键与给定正则表达式匹配的散列元素？不使用任何模块(例如 Tie::RegexpHash)

如何实现？

%s = (
        'as2-queen' => 1 ,
        'as1-queen' => 2,
    );


my $regex = qr/queen/ ;

if ( $s{$regex}) {
  print " I am here " ;
}

~

Answer 1

您的问题不是很清楚，因为您的问题可能不仅仅是“使用”正则表达式作为哈希键，而是关于获取一些您未解释的输出。

我想您的问题可以改写为“我如何获取其键与给定正则表达式匹配的散列元素？”如果是这种情况，以下代码将适用于您:

my $regex = qr/queen/;
print "$_ => $s{$_}\n" for grep $regex, keys %s;