Dane wyjściowe Perla nadpisują się

Question

Mam kod, który wykonuje pętle przez linie w pliku i próbuje wydrukować każdą linię z czymś dodanym na początku i na końcu.

Jednak otrzymuję dane wyjściowe w następujący sposób: "krowy nominalne".

Zasadniczo bit po linii (nominalny) nadpisuje jego początek. Wiem, że usunięcie linii chomp i regex zatrzymuje ten efekt, ale potrzebuję go w jednej linii bez spacji. Gdzie się mylę?

while ($line = <INPUT>) { 

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

Answer 1

Twój plik wejściowy prawdopodobnie pochodzi z systemu MS Windows z końcem linii zakodowanej jako CR-LF. Możesz także po prostu s/\r// usunąć CR.

Answer 2

Możesz mieć \r w swojej zmiennej. Spróbuj użyć \s:

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

Zobacz perlre sensu \s.