Incrementing an integer at the end of a string in perl -

मेरे पास निम्न प्रारूप में एक स्ट्रिंग है:

  \ main \ stream \ foo एच \ 3  

इसमें अधिक या कम "सेक्शन" हो सकते हैं, लेकिन हमेशा एक पूर्णांक के बाद एक स्लैश के साथ समाप्त होगा अन्य उदाहरणों में शामिल हैं:

  \ main \ stream2309 \ stream222 \ foo.c \ 45 \ main \ foo.c \ 9  

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

  .replace (/ \ d + $ /, फ़ंक्शन (n) {return ++ n})  

मुझे करने की आवश्यकता है पर्ल में एक ही बात।

आप / e regex modifier का उपयोग कर सकते हैं

  $ string = ~ s / (\ d +) $ / $ 1 + 1 / ई;  

काम करना चाहिए।