perl – tail file with perl

#about : tail file with perl script
#name : trail.pl
#usage : perl trail.pl /your/path/file.log

$naptime = 1;
use IO::Handle;
open (LOGFILE, $ARGV[0]) or die "can't open $ARGV[0]: $!";
for (;;) {
    while (<LOGFILE>) { print $_; }     # or appropriate processing
    sleep $naptime;
    LOGFILE->clearerr( );            # clear stdio error flag
}

why use ‘for’ and not File::Tail, in my laptop ‘Debian Wheezy’ file tail need more time than for

so in my case ‘for’ more match

Published by

G3n1k

just to remember what i had known :)

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s