पर्ल में एक स्ट्रिंग से संख्या निकालने के लिए कैसे?

Question

मैं

print $str; 
abcd*%1234$sdfsd..#d 

स्ट्रिंग हमेशा संख्या का केवल एक निरंतर खिंचाव, इस मामले में 1234 की तरह होगा। बाकी सभी या तो अक्षर या अन्य विशेष पात्र होंगे।

मैं इस मामले में संख्या (1234) कैसे निकाल सकता हूं और उसे str में संग्रहीत कर सकता हूं?

This page सुझाव देता है कि मुझे \d का उपयोग करना चाहिए, लेकिन कैसे?

Answer 1

$str =~ s/\D//g; 

यह स्ट्रिंग से सभी नोडिगिट वर्ण हटा देता है। यही वह सब है जो आपको करने की ज़रूरत है।

संपादित करें: यदि अन्य लिपियों में यूनिकोड अंक मौजूद हो सकता है, एक बेहतर समाधान है:

$str =~ s/[^0-9]//g; 

Answer 2

आप मूल स्ट्रिंग को संशोधित नहीं करना चाहते हैं, तो आप उन में कब्जा कर नंबर निकाल सकते हैं subpatterns का उपयोग कर regex। सूची संदर्भ में, एक नियमित अभिव्यक्ति subpatterns में परिभाषित मैचों को वापस देता है।

my $str = 'abc 123 x456xy 789foo'; 

my ($first_num) = $str =~ /(\d+)/; # 123 
my @all_nums = $str =~ /(\d+)/g; # (123, 456, 789) 

Answer 3

व्यक्तिगत रूप से, मैं इसे इस तरह करना होगा:

$s =~ /([0-9]+)/; 
print $1; 

$ 1 पहले समूह को देखते हुए नियमित अभिव्यक्ति (दौर कोष्ठक में भाग) मेल खाने वाले शामिल होंगे।

Answer 4

यदि आप इसे विनाशकारी तरीके से करना चाहते हैं, तो यह करने का सबसे तेज़ तरीका है।

$str =~ tr/0-9//cd; 

tr anslate कुछ भी नहीं करने के लिए 0-9 की c omplement में सभी वर्ण, d उन्हें हटाएं।

इस दृष्टिकोण के लिए एक चेतावनी, और फिलिप पॉटर, यह है कि स्ट्रिंग के नीचे अंकों का एक और समूह था, वे अंकों के पहले समूह के साथ मिलकर बन जाएंगे। तो यह स्पष्ट नहीं है कि आप यह करना चाहते हैं।

निश्चित तरीका एक पाने के लिए और अंकों का केवल एक ही समूह

($str) = $str =~ /(\d+)/; 

मैच एक सूची संदर्भ में कैप्चर की सूची लौटाता है। $str के आसपास के माता-पिता अभिव्यक्ति को सूची संदर्भ में रखने के लिए हैं और पहले कैप्चर को $str पर असाइन करें।