in reply to Using Seek to read and parse growing log files

Does any log line get skipped where the ",,,," appears?

Since I can't see the parsing code, I'm not sure about this but I think the problem is solved by searching one byte beyond the last end of file (and skip the newline)

seek(REGLOG, $offset[0] + 1, 1);

As a side note, you could use File::Tail and do the parsing on the fly as the file grows. That's a pain over reboots though!

Update: Hail cleverett for it is he who preceded me ;)