像perl中的日志文件一样在特定大小之后旋转普通文件

lea*_*ner 0 perl rollingfileappender

我有一个用例,我直接写一个文件,并希望它像日志文件一样自动旋转.

一个解决方案我想到的是每一个写前检查文件的大小,如果大小超出其移动到filename.1(和其他文件,以增加有最后数和删除的最后一个文件,如果超过所需数量的文件,更多).

有没有更好的方法来做到这一点?

请注意,每次调用我的进程时,我只将文件写入文件一次.

Bor*_*din 5

问题已经解决了.CPAN模块Logfile::RotateFile::Write::Rotate已完全为此目的而创建

不幸的是,我既没有使用过,也没有提供关于哪一个是你最好选择的意见