Suppression de fichier via Perl

Bonjour a toute la communauté.

Je me suis lancé dans l'écriture d'un script permettant de backuper des fichiers de configurations. Mon script fonctionne bien pour cette tache. Mon problème est le suivant:

J'aimerais conserver un historique des backups pendant un temps limité.
Pour mes tests, je fais un backup toutes les minutes et j'ai demandé un historique de 24 Heures max.

Voila la commande que je lance pour trouver les fichiers :
find <path> -ctime +0 | wc -l
Cette commande me renvoie bien le nombre de fichier +anciens de 24H.
Maintenant, je veux les supprimer.
J'utilise la commande find <path> -ctime +0 | /usr/bin/xargs /bin/rm -f

Ces deux commandes marche bien si je les execute directement.

Via mon script en revanche, j'ai un problème.

Dans le script ces commandes sont renseigné ainsi:

Code:

---

1 2 3 4 5 6 7

my $NB_FICHIERS = `find /XXX/YYY/ZZZ -ctime +0 | wc -l`; $NB_FICHIERS =~ s/^\s+//; chomp($NB_FICHIERS);   my $CLEAR_FICHIERS = "find /XXX/YYY/ZZZ -ctime +0 | /usr/bin/xargs /bin/rm -f";   my $FILES_DELETE = system $CLEAR_FICHIERS;

---

Si j'ajoute dans le script:
print "NB_FICHIERS"; pour savoir combien de fichiers vont être supprimer le retour me donne 0 alors qu'il y a bien un fichier qui a été supprimé.


J'ai pensé utiliser la fonction unlink qui apparemment donne comme code de retour le nombre de fichiers supprimer mais je n'arrive pas m'en servir.


Je débute aussi bien en Perl qu'en programmation ^^

Si kk'un a une idée du pkoi du comment je suis preneur.

Je viens de refaire le test avec la fonction unlink

Code:

---

1 2 3 4 5

my @CLEAR_FICHIERS = `find /var/XXX/YYY/backup -ctime +0`;   foreach (@CLEAR_FICHIERS) { &logger (unlink $_); }

---

La routine &logger me permet de générer un log

Resultat :
Mes fichiers ne sont pas supprimer et le code de retour est 0 mais repeter X fois car X fichier trouver.

Comment faire pour que ca supprime bien mes fichiers trouver et indique le nombre total de fichier supprimer ?

Suis je seulement sur la bonne voie, je me le demande :oops:

Si ta question est "Comment me servir de unlink ?", je pourrai répondre:

Code:

---

unlink './myfile.txt';

---

Effectivement pour un fichier pas de probleme.

Ce que je cherche a faire et de supprimer plusieurs fichiers qui réponde a un critère d'ancienneté de création (find XXX/XXX/XXX -ctime +0)

C'est vrai que c'etait pas forcemenrt kler.

Si ma mémoire est bonne, unlink supporte de recevoir une liste de fichiers à supprimer. Ainsi, il est possible de faire :

Code:

---

1 2 3

my @CLEAR_FICHIERS = `find /var/XXX/YYY/backup -ctime +0 -type f -print`;   logger (unlink @CLEAR_FICHIERS);

---

Je viens d'essayer avec ta syntaxe :

Code:

---

1 2 3

my @CLEAR_FICHIERS = `find /var/XXX/YYY/backup -ctime +0 -type f -print`; &logger (unlink @CLEAR_FICHIERS);

---

Le code de retour est toujours 0 (fichier non supprimé)


Si j'ajoute
&logger (@CLEAR_FICHIERS)

la ligne dans mon log ne contient que le premier des fichier les plus anciens. C'est normal ?

C'est normal ... :roll:

La liste retournée par le find contient des "\n" à la fin de chaque ligne, alors que les noms de fichiers ne contiennent pas ce caractère. Il faut donc le supprimer en "chompifiant" la liste.

Code:

---

1 2 3 4 5

my @CLEAR_FICHIERS =`find /var/XXX/YYY/backup -ctime +0 -type f -print`;   chomp (@CLEAR_FICHIERS);   logger (unlink (@CLEAR_FICHIERS));

---

Par ailleurs, il me semble que le & que tu as obligeamment rajouté en rouge est superflu dans la plupart des cas pour les appels de fonctions ;)

Pour conclure, je t'invite à utiliser, de manière systématique, les balises [code] et [/code] pour mettre ton code en évidence. Cela facilite la lecture du message et augmente la probabilité d'obtention d'une réponse.

J'ai l'impression que tu as des petits problèmes avec tes commandes shell, pourquoi ne pas tout faire en Perl ?

--
Jedaï

Ok c'est tout bon maintenant. Ca marche bien mieux avec ta syntaxe Eurocents

Merci a tous pour votre aide.