Perl文件大小限制

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

---

我不知道我的问题是否清楚-

你可以使用stat来解决这个问题：

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

例如：

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

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

如果（$size/1048576）>3{
打印“太大”；
}
否则{
做某事；
}

一旦确定文件足够大，可以使用进行旋转，就可以使用它进行旋转。

我正在快速阅读。我会尽快在这里发布我的解决方案。不过，我明白其中的逻辑：）