如何向带引号的正则 (qr) 表达式添加修饰符

Question

有没有一种简单的方法可以将正则表达式修饰符（例如“i”）添加到带引号的正则表达式中？例如：

$pat = qr/F(o+)B(a+)r/;
$newpat = $pat . 'i'; # This doesn't work

我能想到的唯一方法是 print "$pat\n" 并返回 (?-xism:F(o+)B(a+)r) 并尝试使用替换删除 ?-xism: 中的“i”

Answer 1

您不能将该标志放入已有的 qr 结果中，因为它受到保护。相反，使用这个：

$pat = qr/F(o+)B(a+)r/i;

Answer 2

您可以修改现有的正则表达式，就像它是一个字符串一样，只要您之后重新编译它

  my $pat = qr/F(o+)B(a+)r/;
  print $pat, "\n";
  print 'FOOBAR' =~ $pat ? "match\n" : "mismatch\n";

  $pat =~ s/i//;
  $pat = qr/(?i)$pat/;
  print $pat, "\n";
  print 'FOOBAR' =~ $pat ? "match\n" : "mismatch\n";

OUTPUT

  (?-xism:F(o+)B(a+)r)
  mismatch
  (?-xism:(?i)(?-xsm:F(o+)B(a+)r))
  match

Answer 3

看起来唯一的方法是对 RE 进行字符串化，用 (i-) 替换 (-i) 并重新引用它：

my $pat = qr/F(o+)B(a+)r/;
my $str = "$pat";
$str =~ s/(?<!\\)(\(\?\w*)-([^i:]*)i([^i:]*):/$1i-$2$3:/g;
$pati = qr/$str/; 

更新：perl 5.14 在 不同的方式，所以我的示例应该看起来像

my $pat = qr/F(o+)B(a+)r/;
my $str = "$pat";
$str =~ s/(?<!\\)\(\?\^/(?^i/g;
$pati = qr/$str/;

但是我手头没有 perl 5.14，无法测试它。

UPD2：我也未能检查转义的左括号。