उपयोग चर

Question

मैं मिलान फ़ाइल नामों के लिए एक रेगुलर एक्सप्रेशन से पैटर्न के रूप में एक चर का उपयोग करना चाहते हैं:

my $file = "test~"; 
my $regex1 = '^.+\Q~\E$'; 
my $regex2 = '^.+\\Q~\\E$'; 
print int($file =~ m/$regex1/)."\n"; 
print int($file =~ m/$regex2/)."\n"; 
print int($file =~ m/^.+\Q~\E$/)."\n"; 

परिणाम (या ideone.com पर):

0 
0 
1 

किसी को व्याख्या कर सकते हैं मैं कैसे एक चर का उपयोग RegEx पैटर्न के रूप में कर सकते हैं?

Answer 1

आप एकल-उद्धृत/गैर-इंटरपोलेटेड स्ट्रिंग में \Q का उपयोग नहीं कर सकते। यह लेजर द्वारा देखा जाना चाहिए।

वैसे भी, टिल्डे मेटा-कैरेक्टर नहीं है।

use regex "debug" जोड़ें और आप देखेंगे कि वास्तव में क्या हो रहा है।

Answer 2

documentation के रूप में कहते हैं:

$re = qr/$pattern/; 
    $string =~ /foo${re}bar/; # can be interpolated in other patterns 
    $string =~ $re; # or used standalone 
    $string =~ /$re/; # or this way 

तो, qr बोली की तरह ऑपरेटर का उपयोग करें।