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

Question

我需要将某个目录中的所有*.exe 文件复制到其他虚拟驱动器。

如果我正在编写批处理脚本，我会执行 xcopy "%mycopyposition%\*.exe"。

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

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

Answer 1

试试这个:

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