引用符付きの正規表現（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)を取得し、「私は」あなたは結果内の旗を置くことができない置換

Answer 1

と?-xism:でを削除しよう既に保護されているので、あなたが既に持っている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"; 

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

Answer 3

がどのように見えるOUTPUT唯一の方法は、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/; 

UPDATE：perlのdifferent wayで5.14引用符正規表現を、ので、私のサンプルは、おそらく

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

のようになります。しかし、私は手元にperlの5.14を持っていないし、それをテストすることはできません。

UPD2：エスケープされた開始括弧も確認できませんでした。