Вывод Perl перезаписывает сам себя

У меня есть код, который просматривает строки в файле и пытается распечатать каждую строку с чем-то добавленным в начале и в конце.

Однако я получаю такой результат: «номинальные коровы».

Обычно бит после строки (номинальный) перезаписывает ее начало. Я знаю, что удаление строк chomp и regex останавливает этот эффект, но мне нужно, чтобы он был на одной строке без пробелов. В чем я ошибаюсь?

while ($line = <INPUT>) {

        chomp $line;
        $line =~ s/ //g; 
        printf "\@attribute %s nominal\n", $line;
}
8
задан blitzen 10 November 2011 в 16:28
поделиться