我想在网络路径中找到最新的子目录,并将最新子目录的全部内容复制到网络路径中的另一个文件夹中
我们在文件夹下有很多子文件夹\\10.184.132.202\projectdump
我需要对子文件夹进行排序以进入最新文件夹并将整个内容复制到另一个文件夹中\\10.184.132.203\baseline
我正在使用下面提到的脚本,我能够在目录下列出最新修改的文件夹,但我不知道复制内容。
use File::stat;
use File::Copy qw(copy);
$dirname = '\\\\10.184.132.202\\projectdump\\Testing\\';
$destination = '\\\\10.184.132.203\\baseline\\Testing\\';
$timediff=0;
opendir DIR, "$dirname";
while (defined ($sub_dir = readdir(DIR)))
{
if($sub_dir ne "." && $sub_dir ne "..")
{
$diff = time()-stat("$dirname/$sub_dir")->mtime;
if($timediff == 0)
{
$timediff=$diff;
$newest=$sub_dir;
}
if($diff<$timediff)
{
$timediff=$diff;
$newest=$sub_dir;
}
}
}
print $newest,"\n";
open my $in, '<', $newest or die $!;
while (<$in>) {
copy *, $destination; --------> Here i want to copy the entire contents of the $newest to $destination.
}