use strict;
open ( COUNT , '<counter');
my $whence = scalar <COUNT>;
chomp $whence;
close COUNT;
open ( FH , "<logfile" );
# scram to position we wrote last to 'counter'
seek FH, $whence , 0;
my $line = scalar <FH>;
print $line;
my $count = tell FH;
open ( COUNT , '>counter' );
print COUNT $count;
close COUNT;
Which exhibits the behaviour(s) that I believe are needed, in this test case, the script prints the next single line from 'logfile' and exits - saving it's position in logfile to 'counter'. OK so I had to seed counter with '0' first!!
This is destined to run on rh7.3, perl5.6.1 - what scares me most is how squid will behave with another
process reading from the logfile it's writing too.
|