Suppression de fichier via Perl

**Maniac** · 12/06/2006, 14h24

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**Maniac** · 12/06/2006, 16h01

Je viens de refaire le test avec la fonction unlink

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Invité · 12/06/2006, 16h04

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

unlink './myfile.txt';

**Maniac** · 12/06/2006, 16h35

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.

**2Eurocents** · 12/06/2006, 16h54

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Maniac** · 12/06/2006, 17h12

Je viens d'essayer avec ta syntaxe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

**2Eurocents** · 12/06/2006, 17h44

C'est normal ...

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.