में एक संशोधक कैसे जोड़ें, क्या रेजीक्स संशोधक को 'i' जैसे उद्धृत नियमित अभिव्यक्ति में जोड़ने का कोई आसान तरीका है? उदाहरण के लिए: $pat = qr/F(o+)B(a+)r/;
$newpat = $pat . 'i'; # This doesn't work
मैं एक छोटा प्रोग्राम लिख रहा हूं जो गेटॉप का उपयोग करके उपयोगकर्ता इनपुट लेता है, और इसके आधार पर, प्रोग्राम या तो कुछ पाठ के खिलाफ पैटर्न से मिलान करने का प्रयास करेगा, या मिलान के लिए विकल्प टेक्स्
यह 5.8 और 5.10 में मेरे लिए काम कर रहा है, लेकिन 5.12 में मेरे कोड इस अजीब गैर qr ऑब्जेक्ट बनाएगी: # running "print Dumper($regex)"
$VAR1 = bless(do{\(my $o = '')}, 'Regexp');
जबकि एक QR मुद्रण //