Perlの出力自体が上書きされる

Question

ファイル内の行をループするコードがあり、開始時と終了時に何かを追加して各行を出力しようとします。

しかし、「nominalte cows」のように出力されます。

基本的に、ライン（名目）の後のビットは、その先頭を上書きします。私はchompとregexの行を削除するとこの効果は止まることがわかりますが、スペースなしで1行にする必要があります。どこが間違っていますか？

while ($line = <INPUT>) { 

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

Answer 1

あなたの入力ファイルはおそらくCR-LFとしてエンコードされた行末を持つMS Windowsからのものです。また、CRを削除するにはs/\r//することもできます。

Answer 2

変数に\rが含まれている可能性があります。 \sを使用してみてください：

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

は\sの意味についてperlreを参照してください。