Perl 如何复制具有给定扩展名的所有文件？

我需要将某些目录中的所有

*.exe

文件复制到其他虚拟驱动器

如果我正在编写批处理脚本，我将执行

xcopy“%mycopyposition%\*.exe”

但我认为在Perl脚本中这将是一个坏主意

我看到了一个模块，但看不到如何做到这一点。

试试这个：

use File::Copy;
for my $file (<*.exe>) {
    # Copies from directory $mycopyposition to current directory.
    copy  "$mycopyposition/$file", $file or die "copy $file failed: $!";
}

使用文件：：复制；
对于我的$file（）{
#从目录$mycopyposition复制到当前目录。
复制“$mycopyposition/$file”、$file或“复制$file失败：$！”；
}

我认为使用

xcopy

是个好主意。它做你想要的。此外，它还保留时间戳和其他属性。有一些非常有用的选项。

请阅读perldoc File:：copy当然，您还需要循环执行文件。我已经阅读了，但没有关于我的问题的信息。注意他的

xcopy

从

%mycopyposition%

复制到。而且，当我们使用模块时，建议使用

File:：Spec->catfile

来连接路径。哦，对不起，我不熟悉

xcopy

。