如何複製給定擴展名的所有文件？

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一個極好的主意。它做你想要的。此外，它還保留時間戳和其他屬性。有一些非常有用的選項。