I use the following to tail a growing file and exist on key hit. This code is
pretty much straight from the Perl CD Bookshelf. I'd like to know how I could
possibly seek to the last line of the file ~at the time of execution~ so as to
not have to print the whole file each time this program is run. This would be
useful against very large files of course. Even the current eof line pos - 100
lines at the time of execution would work.
Thanks for any tips.
use Term::ReadKey;
use IO::Handle;
my $key;
my $nohupfile="nohup.out";
open (NOHUPFILE, $nohupfile) or die "can't open $nohupfile: $!";
while (!$key) {
$key=ReadKey(-1);
if ($key) {
last;
}
while (<NOHUPFILE>) {
print
}
if (!$key) {
sleep 1;
} else {
last;
}
NOHUPFILE->clearerr();
}
_______________________________________________
Perl-Unix-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
