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

是否可以覆盖Perl中先前定义的正则表达式的区分大小写？例如，如果我要具备以下条件:

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

我希望第三行打印一个正面的比赛。

最佳答案

您可以将/i添加到正则表达式中，如下所示:

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)/。

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

关于regex - 在Perl中覆盖区分大小写的正则表达式，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/28433854/