L'output Perl si sovrascrive da solo

Question

Ho un codice che scorre le righe in un file e tenta di stampare ogni riga con qualcosa aggiunto all'inizio e alla fine.

Tuttavia, ottengo l'output in questo modo: "mucche nominalte".

Fondamentalmente, il bit dopo la linea (nominale) sovrascrive l'inizio di esso. So che rimuovere le linee chomp e regex blocca questo effetto, ma ho bisogno che sia su una riga senza spazi. Dove sto andando male?

while ($line = <INPUT>) { 

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

Answer 1

Il file di input è probabilmente da MS Windows con la fine della riga codificata come CR-LF. Puoi anche solo s/\r// rimuovere il CR.

Answer 2

Si può avere \r nella variabile. Provare a utilizzare \s:

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

Vedere perlre per il significato di \s.