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

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: $!"; 
} 

Answer 2

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