Perl文件大小限制

Question

我知道如何在perl中读写|打开文件。想要达到的是这个;当现有文件超过“x”大小时，如何创建新文件。例如，我有一个3MB的文件大小，在写入同一个文件之前，请检查大小，如果大小超过3MB，请创建一个新文件，如果需要的话修改它，然后写入。

我不知道我的问题是明确的 -

Answer 1

您可以使用stat此：

http://perldoc.perl.org/functions/stat.html

统计为您提供了大量有关给定的文件信息，包括大小。

例子：

use File::stat; 
my $filesize = stat("test.txt")->size; 

Answer 2

$size = -s '/path/to/file.txt';

if(($size/1048576) > 3) { print "too big"; } else { do_something(); }

Answer 3

一旦确定该文件是足够大的使用-s旋转，Logfile::Rotate可以用来做旋转。