perl - tac を一行で : 404 Blog Not Found

2008年05月26日02:30 カテゴリ一日一行野郎Tips perl - tac を一行で それってone-linerで。 [を] さくらのレンタルサーバに tac コマンドを入れる UNIX 系のコマンドで、tac というのがすごく便利なのです。 これはファイルを先頭から表示する cat というコマンドの逆で、 ファイルを行単位でひっくり返して末尾から表示してくれるのです。% perl -e 'print reverse <>' ただし、このやり方は一端メモリーに全ファイルを読み込むので非効率といえば非効率。以下のようにすればもう少し効率的になりますか。 #!/usr/local/bin/perl use strict; use warnings; @ARGV or die "$0 [files...]"; for my $filename ( reverse @ARGV ) { o

[sgtakeru]

tacコマンドをperlで実装。open my $fh , '<' , $filename or die;

[t-murachi]

こんなんあるでよ。 http://perldoc.jp/docs/modules/File-ReadBackwards-1.02/ReadBackwards.pod

[sankaseki]

404 Blog Not Found:perl - tac を一行で

[yto]

実用面（百Mとか）からみると、メモリに全部読み込むのは問題外だし、最初に全部スキャンしなきゃならないのも無駄。seek F, 0, 2 で最初に末尾まで飛んでからじわじわ戻る実装じゃないととてもじゃないが使い物には…

[nnn3]

ファイル内の位置を貯めておいて、その位置をピンポイントで表示してるのか。こういうのをパッと思いつけるようになりたい。