पर्ल नियमित अभिव्यक्ति में कुछ char की आखिरी घटना के बाद मैं उन सभी चीज़ों से कैसे मेल खा सकता हूं?

Question

उदाहरण के लिए, में अंतिम x के बाद स्ट्रिंग का हिस्सा लौटाएं (445 वापस लौटाएं)।

Answer 1

my($substr) = $string =~ /.*x(.*)/; 

perldoc perlre से:

डिफ़ॉल्ट रूप से, एक मात्रा निर्धारित subpattern "लालची" वह यह है कि यह रूप में कई बार संभव के रूप में, जबकि अभी भी अनुरूप होगा (एक विशेष प्रारंभिक स्थान दिया गया है) है, बाकी पैटर्न को मिलान करने की अनुमति देता है।

यही कारण है कि .*xx के अंतिम अवसर तक मेल खाएगा।

Answer 2

सबसे आसान तरीका /([^x]*)$/

Answer 3

उपयोग करने के लिए पहले उत्तर एक अच्छा एक है, है, लेकिन जब "कुछ है कि शामिल नहीं है" के बारे में बात ... होगा मैं regex कि "मैच" का उपयोग करना चाहते यह

my($substr) = $string =~ /.*x([^x]*)$/;

कुछ मामले में बहुत उपयोगी

Answer 4

नियमित अभिव्यक्ति: /([^x]+)$/#assuming x is not last element of the string.

Answer 5

सबसे सरल तरीका नियमित अभिव्यक्ति नहीं है, लेकिन एक साधारण विभाजन() और अंतिम तत्व प्राप्त करना।

$string="axxxghdfx445"; 
@s = split /x/ , $string; 
print $s[-1]; 

Answer 6

फिर भी ऐसा करने का एक और तरीका। यह एक नियमित अभिव्यक्ति के रूप में उतना आसान नहीं है, लेकिन यदि आप गति के लिए अनुकूलित कर रहे हैं, तो यह दृष्टिकोण शायद split सहित रेगेक्स का उपयोग करके किसी भी चीज़ से तेज़ होगा।

my $s  = 'axxxghdfx445'; 
my $p  = rindex $s, 'x'; 
my $match = $p < 0 ? undef : substr($s, $p + 1); 

Answer 7

मैं हैरान कोई भी विशेष चर है कि इस करता है उल्लेख किया है हूँ, $': "$'" का मिलान स्ट्रिंग के बाद सब कुछ देता है। (perldoc perlre)

my $str = 'axxxghdfx445'; 
$str =~ /x/; 

# $' contains '445'; 
print $'; 

हालांकि, वहाँ एक लागत (जोर मेरा) है:

चेतावनी: एक बार पर्ल देखता है कि आप $ & में से एक की जरूरत है, "$ ", or "$'" anywhere in the program, it has to provide them for every pattern match. This may substantially slow your program. Perl uses the same mechanism to produce $1, $2, etc, so you also pay a price for each pattern that contains capturing parentheses. (To avoid this cost while retaining the grouping behaviour, use the extended regular expression "(?: ...)" instead.) But if you never use $&, "$" या "$", तो बिना कैप्चरिंग कोष्ठक के पैटर्न को दंडित नहीं किया जाएगा। तो $ &, "$" ", और " $ `" से बचें, यदि आप कर सकते हैं, लेकिन यदि आप नहीं कर सकते हैं (और कुछ एल्गोरिदम वास्तव में उनकी सराहना करते हैं), एक बार जब आप उन्हें एक बार उपयोग करते हैं, तो उन्हें इच्छानुसार उपयोग करें, क्योंकि आपने पहले ही कीमत चुकाई है। 5.005 के रूप में, $ & अन्य दो के रूप में इतना महंगा नहीं है।

लेकिन प्रतीक्षा करें, और भी कुछ है! आपको एक के मूल्य के लिए दो ऑपरेटर मिलते हैं, अभी कार्य करें!

इस समस्या के लिए एक समाधान के रूप में पर्ल 5.10.0 परिचय "$ {^ PREMATCH}", "$ {^ मैच}" और "$ {^ POSTMATCH}" है, जो बराबर हैं को "$ `", $ & और "$" ", सिवाय इसके कि उन्हें केवल होने की गारंटी है जो"/p " (संरक्षित) संशोधक के साथ निष्पादित एक सफल मैच के बाद परिभाषित किया गया है। इन चरों का उपयोग कोई वैश्विक निष्पादन जुर्माना नहीं लगाता है, उनके विराम चिह्न चार समकक्षों के विपरीत, हालांकि व्यापार-बंद पर आपको जब आप उन्हें उपयोग करना चाहते हैं तो पर्ल को बताना होगा।

my $str = 'axxxghdfx445'; 
$str =~ /x/p; 

# ${^POSTMATCH} contains '445'; 
print ${^POSTMATCH}; 

मैं विनम्रतापूर्वक, प्रस्तुत होता है कि इस मार्ग सबसे अच्छा और सबसे सीधी-सपाट ज्यादातर मामलों में दृष्टिकोण है, क्योंकि यह की आवश्यकता नहीं है कि आप पुनः प्राप्त करने में अपने पैटर्न निर्माण के साथ विशेष बातें करना पोस्टमैच भाग, और वहां कोई प्रदर्शन जुर्माना नहीं है।