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

发布时间：2020-12-15 23:21:45 所属栏目：大数据来源：网络整理

导读：现在,我正在使用类似的东西 copy catfile($PATH1,"instructions.txt"),catfile($ENV{'DIRWORK'}); 单独为我要复制的每个.txt文件.此代码是可移植的,因为它不使用任何特定于操作系统的命令. 当我不知道所有文件的个别名称,同时保持代码可移植时,如何将所有文

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

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

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

当我不知道所有文件的个别名称,同时保持代码可移植时,如何将所有文本文件从$PATH1复制到DIRWORK？

解决方法

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

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

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!