How can I copy all files with a given extension?

Question

I need to copy all *.exe files in some directory to other virtual drive .

If I was writing batch script I would do xcopy "%mycopyposition%\*.exe".

But I think it will be a bad idea in Perl script .

I seen a File::Copy module, but couldn't see how to do that.

Answer 1

Try this:

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

I think it is an excellent idea to use xcopy. It does what you want. Plus, it preserves time stamps and other attributes. Has some very useful options.