在Perl中覆盖区分大小写的正则表达式

发布时间：2020-12-15 22:07:03 所属栏目：大数据来源：网络整理

导读：是否有可能覆盖Perl中先前定义的正则表达式的区分大小写？例如,如果我有以下内容： my $upper = qr/BLAH/x;my $lower = qr/$upper/xi;warn "blah" =~ $lower 我希望第三行打印出一个积极的匹配. 解决方法您可以将/ i添加到regexp,如下所示： use re qw( is_

是否有可能覆盖Perl中先前定义的正则表达式的区分大小写？例如,如果我有以下内容：

my $upper = qr/BLAH/x;
my $lower = qr/$upper/xi;
warn "blah" =~ $lower

我希望第三行打印出一个积极的匹配.

解决方法

您可以将/ i添加到regexp,如下所示：

use re qw( is_regexp regexp_pattern );

sub make_re_case_insensitive {
   my ($re) = @_;

   return "(?i:$re)" if !is_regexp($re);

   my ($pat,$mods) = regexp_pattern($re);
   if ($mods !~ /i/) {
      $re = eval('qr/$pat/'.$mods.'i')
         or die($@);
   }

   return $re;
}

但这不会影响qr /(？ – i：BLAH)/.

This is more of a code reuse question,so I don’t have to make two very similar regex that test either uppercase or lowercase.

my $pat = 'BLAH';
my $re1 = qr/$pat/x;
my $re2 = qr/$pat/xi;

（编辑：李大同）

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