perl - string compare failing while fetching a line from a file. -
मेरा कोड,
#! / Usr / bin / perl -w सख्त का उपयोग करें; चेतावनियों का उपयोग करें; मेरे $ कोड = ""; मेरी $ गणना = 0; मेरी $ str1 = "code1"; खुली (फ़ाइल, '/होम / वीपीएनयूजर / टेस्टफाइल। टी। टी। टी। ") या मरना (" फ़ाइल खोलना नहीं जा सका "); जबकि ($ कोड = & lt; FILE & gt;) {प्रिंट ($ कोड); यदि ($ codes eq $ str1) {$ count ++; }} प्रिंट "$ count"; तुलना हमेशा विफल रहता है मेरे testFile.txt में एक सरल लाइन - कोड 1 है जब मैंने एक अलग पर्ल लिपि लिखी है जहां मेरे पास स्क्रिप्ट में दो स्ट्रिंग हैं जो इसे फ़ाइल से प्राप्त करने के बजाय स्वयं की गई है, तो eq ऑपरेटर ठीक काम करता है लेकिन जब मैं इसे फाइल से प्राप्त कर रहा हूं, तो एक समस्या है। अग्रिम धन्यवाद!
अगर आप नहीं चाहते हैं तो अपने फ़ाइल इनपुट को मत भूलना यह एक रिटर्न कैरेक्टर में समाप्त होता है।
जबकि (मेरे $ कोड = & lt; FILE & gt;) {chomp $ codes; यही कारण है कि आपकी स्ट्रिंग की तुलना असफल रहने का कारण हो सकता है।
अतिरिक्त के रूप में, आपकी स्क्रिप्ट के शीर्ष पर और साथ ही, हमेशा ऐसा करते हैं।
मैं सुझाव देना चाहूंगा कि आप फ़ाइल प्रसंस्करण करते समय शीर्ष पर भी शामिल होते हैं। यह स्वचालित रूप से कई प्रकार के आपरेशनों के लिए एक विस्तृत त्रुटि संदेश देगा, जैसे फ़ाइल खोलने, ताकि आपको त्रुटि कोड $! या आपके फ़ाइल नाम को याद रखना पड़ेगा < कोड> मर कथन।
Comments
Post a Comment