Why this piece of code does not work in perl...Its simple -


  #! Usr / bin / perl $ file_name = "file.txt"; खुला (फ़ाइल, $ file_name); जबकि (& lt; FILE & gt;) {my $ line = $ _; यदि ($ line = ~ m / svr \ b /) {my $ server_name; $ Server_name = $ 1; प्रिंट $ server_name; }}  

file.txt:

  ewrerfSvr // निकाला जा करने के लिए दर = आरपीएम आईडी = 123 दर = 45 ADDR = retriveBal किराना = "-r -e $ {MAIN_ROOT} / लॉग / stderr -ओ $ {MAIN_ROOT} / लॉग / stdout -एक -" freedonSvr BALFSvr // निकाले जाने की दर = RPM1 आईडी = 12323 दर = 45etf ADDR = retriveBal किराना = " -r -e $ {MAIN_ROOT} / लॉग / stderr -ओ $ {MAIN_ROOT} / लॉग / stdout -एक - "freedonSvr डी $ {REV_AccountBalance_NAME}" //  

मैं भी निकालना चाहते हैं:।

  REV_AccountBalance  

मुझे इस का उपयोग करते हुए नियमित अभिव्यक्ति करने के लिए सुझाव दें

 <कोड> # usr / bin / perl सख्त का उपयोग करें;! चेतावनी का उपयोग करें; मेरी $ file_name = "file.txt", खुला (मेरे $ एफ एच, $ file_name) या मरो "फ़ाइल खोली नहीं जा", जबकि (& lt; $ एफ एच & gt;) {अगर (मी / (\ w * SVR) \ बी /) {प्रिंट "$ 1 \ n";}}  

आपको चेतावनियां और सख्त का उपयोग करने के लिए और open जैसे कॉल्स से फँसने वाली त्रुटियों का उपयोग करना चाहिए।

और विशेष रूप से में आपके प्रश्न का उत्तर दें, आपको $ N वेरिएबल्स में निकालने के लिए अपने regexp के भीतर ब्रैकेट्स का उपयोग करने की आवश्यकता है।


Comments

Popular posts from this blog

Eclipse CDT variable colors in editor -

AJAX doesn't send POST query -

wpf - Custom Message Box Advice -