perl处理日志时如何准确定位位置?

h_mao

我的问题是日志文件log较大，有300M，需要每分钟去检索log，使用while <FH> 来检索，但如果每次都重头来检索，时间较长，效率也低，有没有什么好办法，让下一次的检索从这次检索结束后的位置，不想用@a=<FH>。seek只能定位字节，有什么好方法吗？？

路小佳

用Tie::File, 每次读完纪录一下结束行数就可以了。

ulmer

Hi,

just using perl bultin function seek(FH, POS, W) and combind with -s FILE
can do that.

The general methods are:
- record the size of processed logfile as postion and put it in a temp file.
- read this recorded position as seek's start position
- just reading and processing data from seek's posion to end
- update the temp record file
- waiting for next processing.

Sample code :
[ ... ]

-- ulmer

h_mao

我用数组实现了,就是怕效率,明天在试一下SEEK的方法,谢谢

flw

如果每次只读新增内容的话，可以考虑用 File::Tail:
http://search.cpan.org/~mgrabnar/File-Tail-0.99.3/Tail.pm

如果每次都要读前面的话，那就只好用 tell 或者 sysseek 来把每行的起始位置保存在数组，然后再 seek 了。