मुझे निम्नलिखित को प्राप्त करने की आवश्यकता है:
my $string = "Thanks for contacting support. Your ticket number: 123. All the best!"
या
my $string = "Thanks for contacting support. Your ticket #: 123. All the best!
"
मैं कैसे कर सकता हूँ? 123
चर में $ticket_no
PERL के साथ?
मुझे लगता है कि regexp कुछ इस तरह का होना चाहिए ticket[ t]+(number|#)?[: t]+([0-9]+)
क्या यह सही है?
उत्तर:
उत्तर № 1 के लिए 1हां, वह रेगेक्स काम करेगा। आप इसे इस तरह इस्तेमाल कर सकते हैं:
$string =~ m/ticket[ t]+(number|#)?[: t]+([0-9]+)/;
my $ticket_no = $2;
ध्यान दें कि आप ", किसी भी तरह, जो कि नियमित अभिव्यक्ति को संभालना चाहते हैं didn "t मैच, उस मामले के बाद से, $ticket_no
अपरिभाषित होगा।
जवाब के लिए 0 № 2
जैसा कि रुख ने पहले ही कहा था - आपका रेगेक्स काम करेगा।
एक संकेत के रूप में: वहाँ regex परीक्षण साइटों के टन कर रहे हैं कि परीक्षण और नियमित अभिव्यक्ति के अनुकूलन आसान बनाते हैं।
एक उदाहरण होगा: http://myregextester.com/