Help for this page

Select Code to Download


  1. or download this
    use File::ReadBackwards ;
# Object interface
$bw = File::ReadBackwards->new( '$file' ) or
                    die "can't read '$file' $!" ;
  2. or download this
    #!/usr/bin/env perl
use strict;
...
while (defined (my $log_line = $bw->readline)) {
    print $log_line;
}
  3. or download this
    $ cat weblog.log
first line
...
second line
first line
$