in reply to Re: Picking up where you left off..
in thread Picking up where you left off..
Closer inspection of Perl InANutShell led me to this...
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!!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;
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.
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Re: Re: Picking up where you left off..
by blm (Hermit) on Oct 14, 2002 at 07:51 UTC |