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可以用來做旋轉。