我可以从远程位置复制单个文件,如下所示:
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) 中有多个文件时,如何复制它们?
我可以从远程位置复制单个文件,如下所示:
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) 中有多个文件时,如何复制它们?
循环中的glob :
for (glob 'C:\temp\*.txt') {
copy($_, "C:\\temp\\local\\") or die "Copy failed: $_ $!";
}
遍历每个文件,然后像这样一个一个地复制:
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: $!";
}