Đầu ra Perl tự ghi đè

Question

Tôi có mã lặp qua các dòng trong một tệp và cố gắng in ra từng dòng có thêm thứ gì đó ở đầu và cuối.

Tuy nhiên, tôi nhận được kết quả như sau: "bò danh nghĩa".

Về cơ bản, bit sau dòng (danh nghĩa) sẽ ghi đè đầu của nó. Tôi biết rằng việc loại bỏ các dòng chomp và regex dừng hiệu ứng này, nhưng tôi cần nó nằm trên một dòng không có dấu cách. Tôi làm sai ở đâu?

while ($line = <INPUT>) { 

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

Answer 1

Tệp đầu vào của bạn có thể từ MS Windows có dòng cuối được mã hóa là CR-LF. Bạn cũng có thể chỉ cần s/\r// để xóa CR.

Answer 2

Bạn có thể có \r trong biến của mình. Hãy thử sử dụng \s:

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

Xem perlre cho ý nghĩa của \s.