La salida Perl se sobrescribe a sí misma

Question

Tengo un código que recorre las líneas de un archivo e intenta imprimir cada línea con algo agregado al principio y al final.

Sin embargo, obtengo una salida como esta: "vacas nominalte".

Básicamente, el bit después de la línea (nominal) sobrescribe el inicio de la misma. Sé que eliminar las líneas chomp y regex detiene este efecto, pero necesito que esté en una línea sin espacios. ¿Dónde estoy equivocado?

while ($line = <INPUT>) { 

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

Answer 1

el archivo de entrada es probablemente de MS Windows con el fin de línea codificada como CR-LF. También puede simplemente s/\r// para eliminar el CR.

Answer 2

Puede tener \r en su variable. Trate de usar \s:

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

Ver perlre del sentido de la \s.