Перенаправить вывод в файл при работе с конвейером cat и perl

Question

Мне нужно перетасовать строки в текстовом файле и сохранить результат в новый текстовый файл. Это команда, которую я использовал. Однако это печатает перетасованные строки в консоли, а не в outfile.

cat infile | perl -MList::Util=shuffle -e 'srand 123; print shuffle(<>);' "$@"; > outfile 

Answer 1

незащищенная точка с запятой является виновником

Это просто останавливает текущую команду и запускает другую пустую (создает пустой файл).

Обратите внимание, что дополнительные "$@" аргументов perl бесполезны здесь, а также используется cat. Таким образом, чтобы все это вы могли написать:

perl -MList::Util=shuffle -e 'srand 123; print shuffle(<>);' infile > outfile 

Answer 2

Снятие последнего; заставляет его работать.

cat infile | perl -MList::Util=shuffle -e 'srand 123; print shuffle(<>);' "$@" > outfile