nasıl böyle 'i' bir alıntı Normal ifadeye olarak regex değiştiriciler eklemek için kolay bir yol var mı bir alıntı düzenli (qr) ifadesi

Question

bir düzenleyici eklemek için? Örneğin:

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

Ben print "$pat\n" etmektir düşünüyorum ve geri (?-xism:F(o+)B(a+)r) almak ve kaldırmak için deneyebilirsiniz tek yolu 'i' Sen sonucunda iç bayrağını koyamazsınız

Answer 1

bir değişiklik ile ?-xism: yılında Zaten sahip olduğunuz qr, çünkü korunuyor. Bunun yerine, bu kullanın: o sürece sonradan yeniden derlemek olarak bir dize sanki

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

Answer 2

Varolan regex değiştirebilir

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

benziyor ÇIKIŞ tek yol yerine, RE stringify etmektir (-i) ile (i-) ve yeniden alıntı geri:

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

GÜNCELLEME: Örneğim muhtemelen

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

gibi görünmelidir Ama perl 5.14 elden yoktur ve bunu test edemez, böylece bir different way içinde 5.14 tırnak İfadelerinin perl.

UPD2: Ben de kaçtı açılış parantez kontrol etmek için başarısız oldu. Mevcut bir regex bir değiştirici bitki, uygun bir şekilde göstermek için