更新完成后重命名目录 - perl

Question

平台 - Windows7

我正在寻找一个可以更改最新修改目录名称的脚本：

以下是我获取最新修改目录的方法：

my $epoch_timestamp = (stat("logdir"))[9];
@date=localtime($epoch_timestamp);
$date[5] +=1900;
$date[4] +=1;
print "$date[5]-$date[4]-$date[3] $date[2]:$date[1]:$date[0]\n";

exp：c:/dir_name/renamedir

我有一个文件夹c:/dir_name;在里面，我正在复制一个又一个文件夹。我需要更改已完全复制的文件夹的名称。

c:/dir_name/renamedir1 c:/dir_name/renamedir2

我面临的问题： 我需要在更新完成后更改名称，即在目录中复制完所有文件之后。

所以任何人都可以让我知道为什么我们可以确定所有文件都被复制到文件夹中？

Answer 1

请你试试这个：

 use File::Copy;

 my $origDir = 'C:\dir_name\renamedir1\file1.txt';
 my $desDir = 'C:\dir_name\renamedir2\file1.txt';

 #Check whether the files copied or not 
 copy($origDir, $desDir) || die "Couldn't able to copy the files: $!";

在其他方式尝试比较文件夹/子文件夹/文件。并从以下链接获取参考：

How to compare two directories and their files in perl