现在,我正在使用类似的东西
copy catfile($PATH1,"instructions.txt"),catfile($ENV{'DIRWORK'});
解决方法
您可以像这样使用核心
File::Copy模块：
use File::Copy;
my @files = glob("$PATH1/*.txt");
for my $file (@files) {
copy($file,$ENV{DIRWORK}) or die "Copy Failed: $!";
}