Perl 文件大小限制

Question

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

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

Answer 1


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





if(($size/1048576) > 3) {
打印“太大”；
}
别的 {
做一点事();
}