Help for this page

Select Code to Download


  1. or download this
    my $logfile = "logfile";
open( LOG, "<$logfile" ) or die "$logfile: $!";
...
    seek( LOG, 0, 1 );
}
close(LOG);
  2. or download this
    tie *LOG, "Tie::Tailrotate", "$logfile"; 
open ...
  3. or download this
    package Tie::Tailrotate;
use strict;  # ;-) learned that
...
    close($self); # unlock file
    return $line;
}