त्वरित पाठ प्रसंस्करण के लिए पर्ल REGEXP उदाहरण

एक बहुत ही उपयोगी नुस्खा जो कमांड लाइन के साथ संचार की सुविधा देता है , यहां वर्णित है , लेकिन इसे लाइव करने की कोशिश करने में विफल रहा, क्योंकि मेरे सिस्टम (ओपनइंडियाना) के तहत कोई गो भाषा संकलक नहीं है। तो यह विचार एक निश्चित सार्वभौमिक भाषा में निर्दिष्ट कार्यक्रम को फिर से लिखने के लिए उत्पन्न हुआ जो निश्चित रूप से किसी भी मंच पर मौजूद है - पर्ल।

परिणामी कोड उदाहरण का उपयोग करना, मैं यह प्रदर्शित करना चाहूंगा कि आप नियमित अभिव्यक्तियों का उपयोग करके एक-दो लाइनों का उपयोग करके त्वरित और कुशल खोज कैसे कर सकते हैं।

कार्यान्वयन

सबसे पहले, हम भविष्य के नियमित अभिव्यक्ति के एक भाग में दिए गए संकेत कार्यों को रूपांतरित करते हैं:

$hints =~ s/(.)/$1\.\*\?/g;

यहाँ $ संकेत सभी संकेतों से सज्जित एक स्ट्रिंग है, उदाहरण के लिए, 'एबीसी'।
खोज अभिव्यक्ति (।) एक एकल वर्ण है (प्रत्येक, खोज पैरामीटर 'g' दिया गया है), हम इसे अपने आप से प्रतिस्थापित करते हैं ($ 1 खोज अभिव्यक्ति के पहले कोष्ठक से मूल्य है) और उन भागों को जोड़ें, जिनकी हमें आवश्यकता है:

प्रत्येक वर्ण के बाद, एक ब्लॉक जोड़ें: '। *?', जिसका अर्थ है: कोई भी वर्ण, शून्य या अधिक बार, और एक मार्कर जो संशोधक को "लालची नहीं" बनाता है (नीचे इस पर अधिक)।

कुल उत्पादन लाइन है: 'ए। *? बी *? सी *? डी *?'

हम मुख्य भाग से गुजरते हैं, जो संकेत के साथ "परिचित" फ़ोल्डर से एक स्ट्रिंग की तुलना करता है, शर्त:

if ($path =~ /^(.*)($hints)$/)

यहाँ प्रतीक '^' रेखा की शुरुआत का "एंकर" है, पहले कोष्ठक में अभिव्यक्ति '(। *)' रेखा उपसर्ग है, और इस अभिव्यक्ति के बाद - खोज के लिए संकेत वाले हमारे पूर्व-तैयार rexxp, अभिव्यक्ति दूसरे "एंकर" के साथ समाप्त होती है। '$', जिसका अर्थ है पंक्ति के अंत से मेल खाता है।

चूँकि पहले को छोड़कर लाइन में सभी संशोधक '*' में मार्कर होते हैं? '', इस मार्कर के बिना एकमात्र संशोधक "लालची" बन जाता है, अर्थात। जितना संभव हो उतना लाइन को दूर करने की कोशिश कर रहा है।

हमारे उदाहरण में, हमारे पास आउटपुट में परिवर्तित स्ट्रिंग है: /^(.*)(a.*?b.*?c.*?d.*?)$/

वास्तव में, इस मामले में खोज दाईं से बाईं ओर की जाती है, अर्थात सबसे पहले, पंक्ति के अंत से, निकटतम वर्ण 'd' की तलाश करें, फिर उसके बाईं ओर, निकटतम वर्ण 'c', फिर निकटतम वर्ण 'b' इसके बाईं ओर और फिर निकटतम वर्ण 'a' इसके लिए, वह सब वर्ण के बाईं ओर होगा। 'ए' "लालची" उपसर्ग में गिर जाएगा। लाइन में पाए जाने वाले परिणाम की स्थिति हम इस उपसर्ग की लंबाई से निर्धारित करेंगे, अर्थात् लाइन $w = length($1); (यहाँ $ 1 को पिछले regexp के पहले कोष्ठक से मूल्य मिलेगा), बाकी की स्थितियाँ (अधिक से अधिक दाईं ओर, बेहतर) हमारे लिए rexxp द्वारा पहले ही पूरी की जा चुकी हैं।

यह केवल कार्य लोडपथ को जोड़ने और स्टार्टअप मापदंडों के प्रसंस्करण को जोड़ने और समाप्त करने के लिए बनी हुई है।

पूरी स्क्रिप्ट:

hg क्लोन bitbucket.org/eugenet/perlre