पर्ल

Question

के साथ दो ओवरलैपिंग पैटर्न मिलान करना मुझे आशा है कि मेरा प्रश्न किसी और द्वारा पहले से ही नहीं देखा गया है, क्योंकि मैंने साइट पर लगभग हर जगह देखने की कोशिश की लेकिन मैं जवाब खोजने में सक्षम नहीं था।

मेरे समस्या है: मैं एक PERL स्क्रिप्ट जो हर घटना एक या एक स्ट्रिंग में एक और पैटर्न के की स्थिति का पता लगाने के लिए है बना रहा हूं।

उदाहरण के लिए:

$string = "betaalphabetabeta"; 
$pattern = "beta|alpha"; 

इस मामले में, मैं 4 मैचों वापस जाने के लिए मेरी स्क्रिप्ट चाहते हैं।

मैंने सोचा था कि यह आसानी से मैच ऑपरेटर किसी न किसी प्रकार इस तरह में उपयोग करके प्राप्त किया जा सकता है:,

$string =~ /beta|alpha/g; 

हालांकि, मेरे दो पैटर्न के बाद से ("अल्फा" "बीटा",) कर रहे हैं आंशिक रूप से अतिव्यापी टुकड़ा कोड जो मैंने अभी पोस्ट किया है, पहले पैटर्न की किसी भी घटना को छोड़ देता है जब यह दूसरे के साथ ओवरलैप होता है।

उदा। ? अगर मैं इस तरह एक स्ट्रिंग है:

$string = "betalphabetabeta"; 

यह बजाय केवल 4.

मैं = ऑपरेटर के साथ कुछ करने के लिए कोशिश की है 3 मैचों देता है, लेकिन मैं इस जोड़ी पर प्रबंधन नहीं कर सकते यह ओआर ऑपरेटर के साथ सही तरीके से ...

क्या किसी के पास कोई समाधान है? आपकी सहायताके लिए धन्यवाद!

Answer 1

निम्नलिखित एक शून्य चौड़ाई दावे का उपयोग करता है (मेरा मानना ​​है कि यही वह है जिसे इसे कहा जाता है)।

#!/usr/bin/perl 
use strict; 
use warnings; 

$_ = "betalphabetabeta"; 

while (/(?=(alpha|beta))/g) { 
    print $1, "\n"; 

प्रिंटों:

C:\Old_Data\perlp>perl t9.pl 
beta 
alpha 
beta 
beta 

Answer 2

आप looakahead का उपयोग करें और मैचों

(?=beta|alpha) 

पर्ल में परीक्षण नहीं की संख्या की गणना करने के लिए है, लेकिन काम करना चाहिए

काम करता है here