मैं पर्ल मैच ऑपरेटर से मैचों को चर में कैसे निकाल सकता हूं?

Question

यदि मेरे पास एक मैच ऑपरेटर है, तो मैं $1, $2 का उपयोग करने के बजाय चर में कोष्ठक में कैप्चर किए गए तारों के हिस्सों को कैसे सहेजूं, और इसी तरह?

... = m/stuff (.*) stuff/; 

बाईं ओर क्या चल रहा है?

Answer 1

चाल एक सूची असाइनमेंट का उपयोग करके सूची संदर्भ में मीटर // काम करने के लिए है:

($interesting) = $string =~ m/(interesting)/g; 

यह बड़े करीने से किया जा सकता है और बातें, जैसे हड़पने के लिए बढ़ाया:

($interesting, $alsogood) = $string =~ m/(interesting) boring (alsogood)/g; 

Answer 2

आमतौर पर आप यह भी सुनिश्चित करने के लिए एक परीक्षण करना चाहते हैं कि इनपुट स्ट्रिंग आपकी नियमित अभिव्यक्ति से मेल खाती है। इस तरह आप त्रुटि मामलों को भी संभाल सकते हैं।

कुछ रोचक निकालने के लिए आपको निकालने में रुचि रखने वाली बिट को लंगरने के लिए कुछ रास्ता भी होना चाहिए।

तो, अपने उदाहरण के साथ, यह पहले सुनिश्चित करें कि इनपुट स्ट्रिंग हमारे अभिव्यक्ति से मेल खाता है, और फिर दो 'उबाऊ' बिट्स के बीच थोड़ा निकालें:

$input = "boring interesting boring"; 
if($input =~ m/boring (.*) boring/) { 
    print "The interesting bit is $1\n"; 
} 
else { 
    print "Input not correctly formatted\n"; 
} 

Answer 3

bracketing का प्रयोग करें (...) का निर्माण एक बनाने के लिए बफर कैप्चर करें। फिर कैप्चर स्ट्रिंग तक पहुंचने के लिए विशेष चर $1, $2 आदि का उपयोग करें।

if (m/(interesting)/) { 
    my $captured = $1; 
} 

Answer 4

$ & - स्ट्रिंग पिछले सफल पैटर्न मैच ( किसी भी एक ब्लॉक या eval() वर्तमान ब्लॉक से घिरा के भीतर छिपा मैचों की गिनती नहीं) के अनुरूप।

#! /usr/bin/perl 

use strict; 
use warnings; 

my $interesting; 
my $string = "boring interesting boring"; 
$interesting = $& if $string =~ /interesting/; 

Answer 5

आप नामित कब्जा बफ़र्स उपयोग कर सकते हैं:

if (/ (?<key> .+?) \s* : \s* (?<value> .+) /x) { 
    $hash{$+{key}} = $+{value}; 
} 

Answer 6

@strings बाईं तरफ चला जाता है और परिणाम में शामिल होंगे, तो अपने इनपुट स्ट्रिंग $input_string चला जाता है। सभी सबस्ट्रिंग्स से मेल खाने के लिए ध्वज g को न भूलें।

my @strings=$input_string=~m/stuff (.*) stuff/g;