Discussion :

[plux31]

Bonjour,

J'ai un problème avec un script qui ne fonctionne pas. L'objectif est de purger un répertoire en supprimant les fichiers qui n'ont pas été modifié depuis plus de quinze jours.
Je suis novice en perl. Voyez vous ou est l'erreur ? Merci de votre aide. La machine est un windows comme vous pouvez le voir au début du script.

Merci d'avance..

#!C:\perl\bin\perl.exe -w

use strict;
use File::Find;

my $dir = 'C:\mon dossier à purger';

finddepth(\&supprfile, $dir);

sub supprfile {
return if /^\.\.?/;
if ((-M $_) >=15) { unlink $File::Find::name; }
}

[Manuxme]

Hello,

Je viens de tester ton script en ne modifiant que la variable du répertoire et cela fonctionne très bien.

Peux tu nous communiquer ton erreur ?

Manuxme.

[plux31]

En fait j'ai trouvé . Le répertoire d'install de perl a été déplacé. J'aurais du vérifier avant de poster :p
Par contre il n'y avait pas d'erreur (je ne sais pas si c'est normal ?)

Merci pour le test en tout cas

[GLDavid]

Bienvenu à toi plux31

Une bonne habitude à prendre dès maintenant serait d'entourer ton code avec les balises codes tel que le recommande les règles du forum.
Enfin, c'est bien que tu ais résolu ton problème. Si c'est le cas, cliques sur le bouton résolu pour mettre automatiquement le tag adéquat.
Merci de ta compréhension

@++ et bon Perl