Как скопировать несколько файлов с удаленного места

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

Петля через каждый файл, а затем скопировать один за другим, как это:

use File::Copy; 
use File::Glob; 

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

my @files = glob("$From\\*.txt"); 

for my $file (@files) { 
    copy("$From\\$file","C:\\temp\\local\\") or die "Copy failed: $!"; 
} 

Answer 2

glob в цикле:

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