標準入力の文章を読んで上下ひっくり返して表示する。windowsのファイルを読むこともあるので末尾の\r\nを削除する。
while(<>){ s/[\r\n]*$//; push(@a,$_); } print "$_\n" for(reverse(@a));
- chompは\r\nを削除してくれないので、-lオプションはイマイチ使えない
無理やり使うとこんな感じになる
perl -nle 's/\r//; push(@a,$_); END{ print for(reverse(@a)) }'
- tacコマンドは最終行が改行で終わってないときにバグる
