perl substr to get a substring -
#! / Usr / bin / perl मेरी $ str = "abc def yyyhi"; प्रिंट उपस्ट्रेट ($ str, 0, इंडेक्स ($ str, ''));
मैं substr को प्रिंट करना चाहता हूँ
प्रिंट substr ($ str, index ($ str, ''), rindex ($ str, '' ) काम नहीं कर रहा है?
कोई भी विचार?
आपने किया 'तर्क के रूप में आप जितना चाहते हैं उतना स्पष्ट नहीं है, लेकिन सबसे अच्छा अनुमान है कि आप पहली और आखिरी जगहों के बीच वर्णों को मुद्रित करना चाहते हैं।
आपका उदाहरण कोड बहुत सारे अक्षर मुद्रित करेगा क्योंकि इससे पहले # वर्णों का प्रिंट होता है अंतिम स्थान (आपके उदाहरण में, 7 की बजाय 10)। ठीक करने के लिए, आपको पहले स्थान के पहले # वर्णों को घटाकर # मुद्रित वर्णों को समायोजित करने की आवश्यकता है।
इसके अलावा, आपको एक पहला स्थान छपाई करने से बचने के लिए अपने "अनुक्रमणिका" मान के दायीं ओर वर्ण -
$ cat d: \ scripts \ test1 नीचे दिए गए उदाहरण में "+1" और "-1" मेरी $ str = "abc def yyy ghi" मेरी $ first_space_index = इंडेक्स ($ str, ''); मेरा $ substring = substr ($ str, $ first_space_index + 1, rindex ($ str, '') - $ first_space_index - 1); प्रिंट "| $ substring | \ n"; Test1.pl | def yyy | |
Comments
Post a Comment