perl - 将文件从列表/数组移动到 Perl 中的目标文件夹

Question

使用Perl代码

use File::Find::Rule;

my @files = File::Find::Rule->file()
                            ->mtime('<=' . (time() - 3600))
                            ->in("/source/directory/path");

我得到了源目录中至少一小时未修改的文件列表。

将此类文件移动到目标文件夹的最简单方法是什么？ 错误处理也重要。

我是否必须使用循环将这些文件一个一个地移动，或者是否有一些优雅且安全的方式来做到这一点？

Answer 1

工作解决方案:

use File::Find::Rule;
use File::Copy;

my @files = File::Find::Rule
              ->file()
              ->mtime('<=' . (time() - 3600))
              ->exec( sub { 
                            my $r = move($_[2], "/destination/directory/path");
                            print STDERR "$_[2]\t$!\n" if !$r;
                            $r
                          }
                    )
              ->in("/source/directory/path");