Bonjour,

Je recherche un script PERL réalisant la compression, suppression et l’archivage de fichiers / à une durée de rétention.

Précisions :
Le traitement disposera d’un fichier texte de configuration regroupant les informations suivantes : le module (nécessaire pour la fonction d’archivage et à titre informatif pour la suppression et la compression), répertoire de traitement, extension des fichiers à traiter (avec les jokers habituels), la durée de rétention (date du jour – la durée de rétention = la date pour laquelle l’ensemble des fichiers inférieurs à cette date seront à traiter), le répertoire d’archivage (FS où les fichiers seront à déplacer) et l’action (ZIP = compression ZIP ou GZIP, DEL = suppression des fichiers, ARCH = Archivage des fichiers)

L’archivage consistera à déplacer les fichiers (du répertoire source, vers la destination) vers un autre FileSystem (par rapport à la durée de rétention), puis de réaliser un TAR de ces fichiers (avec une date dans la nomenclature du fichier). Exemple : MUSIK_20070330120000.tar, VIDEO_20070330120000.tar

La cerise sur le gâteau serait de disposer d’un log applicative traçant par étape (ligne dans le fichier de configuration), le nombre de fichiers traités + Gestion des erreurs dans le PERL

D’avance merci pour votre aide

Environnement : Unix HP
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
Exemple de fichier de configuration (config.txt) :
Module,Répertoire de traitement,Extension fichiers,Rétention,Action,Répertoire d’archivage
MUSIK,/home/toto,*.txt,10,ZIP,NULL
VIDEO,/home/toto,*.doc,10,DEL,NULL
VIDEO,/home/toto,*,10,ARCH,/home/archivage/toto