Renommez le répertoire une fois la mise à jour terminée - perl - perl

Plateforme - Windows7

Je recherche un script qui changera le nom du dernier répertoire modifié:

Voici comment j'obtiens le dernier répertoire modifié:

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

J'ai un dossier c:/dir_name; à l'intérieur, je copie un dossier après l'autre. Je dois changer le nom du dossier qui a été copié complètement.

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

Le problème auquel je suis confronté: Je dois changer le nom une fois la mise à jour terminée, c'est-à-dire après que tous les fichiers ont été copiés dans le répertoire.

Alors, quelqu'un peut-il me dire comment se fait-il que nous puissions être sûrs que tous les fichiers ont été copiés dans le dossier?

Réponses:

Pourriez-vous s'il vous plaît essayer de cette façon:

 use File::Copy;

my $origDir = "C:dir_namerenamedir1file1.txt";
my $desDir = "C:dir_namerenamedir2file1.txt";

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

Dans l'autre sens, essayez de comparer les dossiers / sous-dossiers / fichiers. Et obtenez la référence du lien ci-dessous:

Comment comparer deux répertoires et leurs fichiers en perl