Perl：将哈希键与正则表达式匹配

发布时间：2020-12-15 21:20:26 所属栏目：大数据来源：网络整理

导读：我想知道Perl是否有内置的方法来检查哈希元素是否存在与匹配特定正则表达式的键。例如： my %h = ( 'twelve' = 12,'thirteen' = 13,'fourteen' = 14 ); 我想知道有没有办法做到这一点： print "We have 12n" if exists $h{twelve};print "We have some teen

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

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

我想知道有没有办法做到这一点：

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

解决方法

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 teensn" if /.*teen$/ ~~ %h;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!