Perl 输出覆盖自身

Question

我有代码循环遍历文件中的行，并尝试打印出每一行，并在开头和结尾添加一些内容。

但是，我得到这样的输出:“nominalte milks”。

基本上，行(标称)后面的位会覆盖行的开头。我知道删除 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。