Perl Split on first occourence -
-
मान लें कि स्ट्रिंग है:
एबीसी-डाइजेस्ट-एम 2- 2.03-04.01.00.05
मैं " एबीसी-डाइजेस्ट-एम 2 " और " 2.03-04.01 को विभाजित करना चाहता हूं। 00.05 "दो स्ट्रिंग्स में
- और अंक संयोजन की पहली घटना। " - \ d "।
- मैं इसे कोड की एक पंक्ति से कैसे कर सकता / सकती हूं?
आप अंक की खपत के बिना यह करने के लिए एक आराख़ले का दावा के साथ विभाजन का उपयोग कर सकते हैं। जैसे
perl -MData :: Dumper -e 'प्रिंट डम्पर (विभाजन / - (? = \ D) /, "एबीसी-डाइजेस्ट-एम 2 -2.03-04.01.00.05", 2) ; ' $ VAR1 = 'एबीसी-डाइजेस्ट-एम 2'; $ VAR2 = '2.03-04.01.00.05';
Comments
Post a Comment