Perl輸出覆蓋自己

Question

我有代碼循環通過文件中的行，並嘗試打印出每行添加了開始和結尾的東西。

但是，我得到這樣的輸出：「nominalte牛」。

基本上，行後的位（標稱）覆蓋了它的開始。我知道刪除chomp和regex行會停止這種效果，但我需要它在一行中不帶空格。我哪裏錯了？

while ($line = <INPUT>) { 

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

Answer 1

您的輸入文件可能來自MS Windows，行結尾編碼爲CR-LF。您也可以只需s/\r//刪除CR。

Answer 2

您的變量中可能有\r。嘗試使用\s：

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

爲\s意義，請參見perlre。