Duane,
Friday, February 7, 2003 you wrote:
DC> I have a question, how do you get perl to rescan the same log it scanned 5
DC> minutes before, and pick up where it left off?
Always more than one way - but here is one possibility:
sub tail_log {
my $iteration = 0;
for (;;) {
while (<LOGFILE>) {
next unless length;
# do some stuff
sleep $nap;
# dont' forget to check the date to see if we have gone to next day
# and if so you have to close and then open new log at end and
# so on
seek(LOGFILE, 0, 1);
}
}
}
hth
Terry Fritts
---
[This E-mail was scanned for viruses by Declude Virus (http://www.declude.com)]
---
This E-mail came from the Declude.JunkMail mailing list. To
unsubscribe, just send an E-mail to [EMAIL PROTECTED], and
type "unsubscribe Declude.JunkMail". The archives can be found
at http://www.mail-archive.com.
