如何使用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: $!";
}