使用文件列表复制并移动到 perl 中的新目录

Question

我有一个 txt 文件中的文件名列表。它们与我拥有的 pdf 相关。我想将该列表中列出的实际 pdf 文件复制到目录中。需要复制的文件也包含在不同的子目录中。使用 perl 执行此操作的最简单方法是什么？ 谢谢！

Answer 1

我建议您阅读 perlfaq5： How do我复制文件？

之后，应该不会太难；未经测试的代码：

use strict;
use warnings;
use 5.010;
use autodie;
use File::Copy;
use File::Spec;

open my $files_fh, '<', '/path/to/txt';

my $files_dir       = shift // '/path/to/dir';
my $destination_dir = shift // '/path/to/dir';

while (<$files_fh>) {
    chomp;
    next unless -d (my $file = File::Spec->catfile($files_dir, $_) );

    copy($file, $file . '.cpy');
    move($file . '.cpy', $destination_dir);
    say "Copied [$file] and moved it to [$destination_dir]";
}

Answer 2

我建议您使用 perl File::Copy 包。

use File::Copy;
$filetobecopied = "myhtml.html.";
$newfile = "html/myhtml.html.";
copy($filetobecopied, $newfile) or die "File cannot be copied.";