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。