पर्ल में प्रतिस्थापन के बाद मैं मिलान चर $ 1 का उपयोग कैसे कर सकता हूं?

Question

क्या मैं कभी कभी अपने आप को लिख

s/(something)// ; 
    my $x = $1 ; 

तो मुझे लगता है कि अगर s/// विफल रहता है $1 एक पिछले मैच से एक मूल्य से अधिक ले जाने के किया जा सकता है खोजने के पर्ल में एक प्रतिस्थापन से मैच में चर उठा के स्पष्ट तरीका है, । तो मैं

my $x = 'defaultvalue' ; 
    if (s/(something)//) 
    { 
    $x = $1 ; 
    } 

क्या यह करने का सबसे साफ तरीका है?

Answer 1

के रूप में अन्य लोगों, ने बताया है TIMTOWTDI: की पूर्वता "और" और "या" बहुत कम इतना है कि आप सुरक्षित रूप से कोष्ठक की आवश्यकता के बिना एक सूची ऑपरेटर के बाद उनका उपयोग कर सकते है, तथापि,।

मैं personnally इसे एक भी अभिव्यक्ति के रूप में, लपेट चाहते हैं ताकि बिंदु से बहुत ज्यादा विचलित करने के लिए नहीं:

my $x = s/(something)// ? $1 : 'defaultvalue'; 

Answer 2

TMTOWTDI।

मुहावरेदार पर्ल आमतौर पर देखा हो सकता है somthing की तरह:

my $x='defaultvalue'; 

$x=$1 if (s/(something)//) ; 

Answer 3

@mobrule टिप्पणी है कि आप

s{(...)}{} && ($x=$1) 

उपयोग कर सकते हैं में बताते हैं मैं

s{(...)}{} and $x = $1; 

मैं इस्तेमाल किया सिफारिश करेंगे s{}{} क्योंकि जब मैं मार्कडाउन // को पी में टिप्पणियों के रूप में चिह्नित करता हूं तो मुझे इससे नफरत है एरल कोड

and&& से कम प्राथमिकता है जो असाइनमेंट के आस-पास कोष्ठक को हटाने में सक्षम बनाता है।

perldoc perlop से:

&& और || जब नियंत्रण प्रवाह के लिए इस्तेमाल करने के लिए अधिक पठनीय विकल्प के रूप में, पर्ल and और or ऑपरेटरों (नीचे देखें) प्रदान करता है। शॉर्ट-सर्किट व्यवहार समान है।

Answer 4

यह बहुत ही व्यक्तिपरक है, और सबसे अच्छा जवाब पर कितनी अच्छी तरह बहुत निर्भर करेगा यह आपकी कोडिंग शैली से मेल खाता है, लेकिन मैं अपनी टोपी को अंगूठी में फेंक दूंगा।

चूक के साथ कार्य के लिए मेरा पसंदीदा तृतीयक ऑपरेटर है:

my $x = ($data =~ s/(foo)//) ? $1 : 'defaultvalue'; 

हालांकि नई

(ठीक है, नहीं है कि नए, 5.10 यह शुरू की) "परिभाषित या" ऑपरेटर में तृतीयक बयान की आवश्यकता को कम कर सकते हैं कई मामलों।मैं आम तौर पर इस तरह के रूप में इसका इस्तेमाल:

my $var = defined($candidate) ? $candidate : 'default'; 

लेकिन अब के लिए सरल किया जा सकता:

my $var = $candidate // 'default'; 

या

my $var = 'default'; 
$var //= $candidate;