पर्ल आउटपुट खुद को ओवरराइट करता है

Question

मेरे पास एक कोड है जो फ़ाइल में लाइनों के माध्यम से लूप करता है, और शुरुआत और अंत में जोड़े गए कुछ के साथ प्रत्येक पंक्ति को मुद्रित करने का प्रयास करता है।

हालांकि, मुझे इस तरह का आउटपुट मिलता है: "नाममात्र गायों"।

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

while ($line = <INPUT>) { 

     chomp $line; 
     $line =~ s/ //g; 
     printf "\@attribute %s nominal\n", $line; 
} 

Answer 1

आपकी इनपुट फ़ाइल शायद एमएस विंडोज से सीआर-एलएफ के रूप में एन्कोडेड लाइन के अंत में है। सीआर को हटाने के लिए आप s/\r// भी कर सकते हैं।

Answer 2

आपके पास अपने चर में \r हो सकता है। \s उपयोग करके देखें:

$line =~ s/\s//g; 

\s के अर्थ के लिए perlre देखें।