如何获取其键与给定正则表达式匹配的哈希元素？不使用任何模块（例如 Tie::Regexp Hash）
如何实现这一目标？
%s = (
'as2-queen' => 1 ,
'as1-queen' => 2,
);
my $regex = qr/queen/ ;
if ( $s{$regex}) {
print " I am here " ;
}
~
您的问题不是很清楚，因为您的问题可能不仅仅是“使用”正则表达式作为哈希键，而是关于获取一些您尚未解释的输出。
我想你的问题可以改写为“如何获取其键与给定正则表达式匹配的哈希元素？”如果是这种情况，以下代码将适合您：
my $regex = qr/queen/;
print "$_ => $s{$_}\n" for grep $regex, keys %s;
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
