उद्धृत नियमित (क्यूआर) अभिव्यक्ति

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) हो और दूर करने की कोशिश कर सकते हैं 'i' एक प्रतिस्थापन

Answer 1

आप का परिणाम अंदर झंडा नहीं डाल सकते साथ ?-xism: में qr जो आपके पास पहले से है, क्योंकि यह संरक्षित है। इसके बजाय, इस का उपयोग करें:

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

Answer 2

जैसे कि यह एक स्ट्रिंग के रूप में लंबे समय तक आप इसे बाद में पुन: संयोजित रूप में था आप एक मौजूदा regex संशोधित कर सकते हैं

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

तरह लग रहा है आरई को स्ट्रिंग करने का एकमात्र तरीका है (ii) (ii) के साथ (ii) को प्रतिस्थापित करें और इसे फिर से उद्धृत करें:

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

अद्यतन: पर्ल एक different way में 5.14 उद्धरण regexps, इसलिए मेरे नमूना शायद

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

की तरह दिखना चाहिए लेकिन मैं पर्ल 5.14 हाथ में नहीं है और यह परीक्षण नहीं कर सकते।

यूपीडी 2: मैं बचने वाले भागने के लिए भी जांचने में विफल रहा।