Поменять каждую 2-ю и 3-ю строки между собой

Первое, что пришло в голову:

$ perl -ne 'push @x,$_;if($. % 3==0){print $x[0],$x[2],$x[1];@x=()}END{print for @x}' file.txt 

Наверняка можно красивее.

Спасибо, работает! Но тоже уважаю максимально красивые и минималистичные решения.

cat in.txt | head -n 1 >> out.txt; cat in.txt | tail -n +2 | head -n 2 | tac >> out.txt; cat in.txt | tail -n +4 >> out.txt

:)

cat x.txt | perl -e 'print((map scalar <>, 1..3)[0,2,1]) until eof'

Самое читабельное наверное, из того, что попробовал.

А чего на sed-е то никто не может чтоли? Оно ведь просто и красиво:

sed -e '1~3b;2~3{h;d};3~3G'

Спасибо. Решение на sed-е очень понравилось своей лаконичностью.

Решение на sed прекрасно. Жаль только, не везде работает (на Маке, например, выдаёт ошибку).

Такой ещё вариант:

perl -ne '$x=<>;$y=<>;print$_,$y,$x'