पर्ल

Question

नोब प्रश्न के साथ एक नियमित अभिव्यक्ति को कई बार मिलान करना। मैं एक बहुत ही सरल पर्ल स्क्रिप्ट है और मैं regex स्ट्रिंग

my $string = "ohai there. ohai"; 
my @results = $string =~ /(\w\w\w\w)/; 
foreach my $x (@results){ 
    print "$x\n"; 
} 

में कई भागों मिलान करने के लिए इस तरह से मैं चाहता हूँ के रूप में यह केवल रिटर्न ohai काम नहीं कर रहा चाहते हैं। मैं इसे ओहाई थू ओई

मैं इसे करने के बारे में कैसे जाना चाहूंगा।

धन्यवाद

Answer 1

क्या आप यह चाहते हैं?

my $string = "ohai there. ohai"; 
while ($string =~ m/(\w\w\w\w)/g) { 
    print "$1\n"; 
} 

यह रिटर्न

ohai 
ther 
ohai 

perlretut से:

आपरिवर्तक "// जी" वैश्विक मिलान के लिए खड़ा है और मिलान ऑपरेटर एक स्ट्रिंग के रूप में कई के भीतर मिलान करने के लिए अनुमति देता है जितना संभव हो सके समय।

इसके अलावा, अगर आप एक सरणी में मैच रखना चाहते हैं के बजाय आप कर सकते हैं:

my $string = "ohai there. ohai"; 
my @matches = ($string =~ m/(\w\w\w\w)/g); 
foreach my $x (@matches) { 
    print "$x\n"; 
}  

Answer 2

या आप इस

my $string = "ohai there. ohai"; 
my @matches = split(/\s/, $string); 
foreach my $x (@matches) { 
    print "$x\n"; 
} 

इस मामले में विभाजन समारोह पर विभाजन कर सकता है रिक्त स्थान और प्रिंट

ohai 
there. 
ohai