perl - 如何使用 Perl 复制特定类型的所有文件？

Question

现在，我正在使用类似的东西

copy catfile($PATH1, "instructions.txt"), catfile($ENV{'DIRWORK'});

分别为每个 .txt我要复制的文件。此代码是可移植的，因为它不使用任何操作系统特定的命令。

如何复制全部 来自 $PATH1 的文本文件至DIRWORK ，当我不知道所有文件的各个名称时，同时保持代码可移植性？

Answer 1

您可以使用核心 File::Copy 像这样的模块:

use File::Copy;
my @files = glob("$PATH1/*.txt");

for my $file (@files) {
    copy($file, $ENV{DIRWORK}) or die "Copy failed: $!";
}