Perl regex: count leading substrings -

इस सवाल का पहले से ही एक उत्तर है: < / P>

• 4 जवाब

क्या कोई पर्ल रेगेक्स है यह गणना कर सकता है कि किसी अन्य स्ट्रिंग की शुरुआत में कितनी बार एक सबस्ट्रिंग उत्पन्न होती है?

उदाहरण के लिए

  my $ string = "../../../../ ../../../../../Downloads/../Testing/../ "; मेरी $ countstr = "../";  

परिणाम 9 होना चाहिए, क्योंकि ../ की <9> की नौ घटनाएं हैं।

>

आप वैश्विक रेगुलर एक्सप्रेशन के साथ ऐसा कर सकते हैं और \ g एंकर, इस तरह से

<पूर्व> सख्त उपयोग करें; चेतावनियों का उपयोग करें; मेरी $ स्ट्रिंग = '../../../../../../../../ डाउनलोड / / / परीक्षण / ...'; मेरी $ countstr = '../'; मेरा $ n = () = $ स्ट्रिंग = ~ / \ जी \ क्यू $ countstr / g; प्रिंट $ n, "\ n";

आउटपुट

  9