使用Perl编写的代码
use File::Find::Rule;
my @files = File::Find::Rule->file()
->mtime('<=' . (time() - 3600))
->in("/source/directory/path");
我得到了一个源目录中未在至少一小时内修改的文件列表。
最简单的将这些文件移动到目标文件夹的方法是什么?错误处理也很重要。
我是否需要使用循环逐个移动这些文件,或者有没有更好、更优雅且安全的方法来完成这个任务?
warn
代替print STDERR
。 - friedoFile::Path
中的mkpath
函数。 - Slaven Rezic