古い記事
ランダムジャンプ
新しい記事
Perl Hacks」、"HACK#20 Reading Files Backwards" より、
ファイルを後ろから読むの術。
File::ReadBackwards を使うだけ。手軽。
#!/usr/bin/perl
use strict;
use warnings;
use File::ReadBackwards;
my $file_name = shift @ARGV;
my $bw = File::ReadBackwards->new($file_name);
until ( $bw->eof ) {
    print $bw->readline;
}

なお、コマンドラインからなら tac が便利。タック!タック!
- [を] ファイルの先頭に追加するには[2003-07-07-2]
この記事に言及しているこのブログ内の記事