如何将修饰符添加到带引号的常规(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;