0

我可以从远程位置复制单个文件,如下所示:

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) 中有多个文件时,如何复制它们?

4

2 回答 2

0

循环中的glob :

for (glob 'C:\temp\*.txt') {
    copy($_, "C:\\temp\\local\\") or die "Copy failed: $_ $!";
}
于 2013-08-28T00:43:28.577 回答
-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: $!";
}
于 2013-08-28T00:33:53.977 回答