Come aggiungere un modificatore a un'espressione quotata regolare (qr)

Question

C'è un modo semplice per aggiungere modificatori di espressioni regolari come "i" a un'espressione regolare quotata? Per esempio:

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

L'unico modo che posso pensare è quello di print "$pat\n" e tornare (?-xism:F(o+)B(a+)r) e cercare di rimuovere la 'i' in ?-xism: con una sostituzione

Answer 1

Non si può mettere il flag all'interno del risultato di qr che hai già, perché è protetto. Invece, utilizzare questo:

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

Answer 2

È possibile modificare un espressione regolare esistente come se fosse una stringa fino a quando si ricompilate dopo

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"; 

USCITA

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

Answer 3

Sembra l'unico modo è quello di stringificare il RE, sostituire (-i) con (i-) e ri-quotarlo indietro:

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 5.14 citazioni espressioni regolari in un different way, quindi il mio campione dovrebbe probabilmente essere simile

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

Ma non ho perl 5.14 a portata di mano e non può testarlo.

UPD2: Ho anche omesso di verificare la parentesi aperta di escape.