मिलान regex और कोड

Question

की एक पंक्ति में परिणाम असाइन करें मैं एक चर पर एक regex मैच करने में सक्षम होना चाहता हूं और परिणामों को चर को स्वयं असाइन करना चाहता हूं। यह करने के लिए सबसे अच्छा तरीका क्या है?

मैं अनिवार्य रूप से कोड की एक पंक्ति में लाइनों 2 और 3 संयोजित करना चाहते हैं:

$variable = "some string"; 
$variable =~ /(find something).*/; 
$variable = $1; 

वहाँ एक छोटी/सरल यह करने के लिए रास्ता नहीं है? क्या मैं कुछ भूल रहा हूँ?

$a = 'stackoverflow'; 
$a =~ s/(\w+)overflow/$1/; 

$a अब "stack"

Answer 1

आप इसे कम क्यों करना चाहते हैं? क्या वास्तव में कोई फर्क पड़ता है?

$variable = $1 if $variable =~ /(find something).*/; 

आप चर नाम या बार-बार ऐसा करने के बारे में चिंतित हैं, तो एक सबरूटीन में बात लपेट और इसके बारे में भूल जाते हैं:

some_sub($variable, qr/pattern/); 
sub some_sub { $_[0] = $1 if eval { $_[0] =~ m/$_[1]/ }; $1 }; 

लेकिन अगर आप इसे लागू, सबरूटीन की बात करने के लिए है इसे पुन: उपयोग करने योग्य बनाएं ताकि आप लाइनों का एक विशेष सेट एक छोटा नाम दें जो उनके स्थान पर खड़ा हो।

Answer 2

आप रूप से प्रतिस्थापन कर सकते हैं।

$variable =~ s/.*(find something).*/$1/; 

AFAIK, तुम हमेशा मान की प्रतिलिपि करने के लिए हालांकि, जब तक आप मूल मार करने के लिए परवाह नहीं है होगा।

Answer 3

लगभग है ....

आप मैच गठबंधन और एक प्रतिस्थापन के साथ मिलान मान प्राप्त कर सकते हैं:

Answer 4

ठीक है, आप कह सकते हैं

my $variable; 
($variable) = ($variable = "find something soon") =~ /(find something).*/; 

या

(my $variable = "find something soon") =~ s/^.*?(find something).*/$1/; 

Answer 5

मैं यह कर:

#!/usr/bin/perl 

$target = "n: 123"; 
my ($target) = $target =~ /n:\s*(\d+)/g; 
print $target; # the var $target now is "123" 

Answer 6

my($variable) = "some string" =~ /(e\s*str)/; 

यह काम करता है क्योंकि

/g विकल्प का प्रयोग नहीं किया जाता है, तो m// सूची संदर्भ में subexpressions पैटर्न में कोष्ठक, अर्थात, ($1, $2, $3 ...) के अनुरूप से मिलकर एक सूची देता है।

और my($variable) = ... (स्केलर के चारों ओर कोष्ठक नोट करें) मैच के लिए सूची संदर्भ संदर्भ प्रदान करता है।

यदि पैटर्न मिलान करने में विफल रहता है, $variable अपरिभाषित मान प्राप्त करता है।

Answer 7

$variable2 = "stackoverflow"; 
(my $variable1) = ($variable2 =~ /stack(\w+)/); 

$variable1 अब "overflow" बराबर होती है।