tail -f en Perl

Le module File::Tail sait suivre un fichier de logs tout en préservant la charge machine, en effet, il maintient une moyenne de temps entre deux modifications du fichier et ne regarde que lorqu'il estime que cela est pertinent.

use File::Tail;

my $file = File::Tail -> new(   name => $ARGV[0], 
                                maxinterval => 10,
                                adjustafter => 7);

while(my$line = $file -> read) {
        print $line;
}