perl - リモートの場所から複数のファイルをコピーするにはどうすればよいですか?

Question

以下のように、リモートの場所から単一のファイルをコピーできます。

use File::Copy;

$Server="192.168.1.2";
$ServerDir="\\C:\\temp\\test.txt";
my $From = "\\\\".$Server.$ServerDir;

copy("$From","C:\\temp\\local\\") or die "Copy failed: $!";

しかし、私の $ServerDir(\C:\temp\*.txt) に複数のファイルがある場合、どうすればそれらをコピーできますか?

Answer 1

ループ内のグロブ:

for (glob 'C:\temp\*.txt') {
    copy($_, "C:\\temp\\local\\") or die "Copy failed: $_ $!";
}