Bonjour à vous,

je suis novice en Perl et je cherche à rendre automatique une tâche fastidieuse, je m'explique :
- j'ai un répertoire X contenant plusieurs sous-répertoires a b c d ...
- ces sous-rép 'a' 'b' 'c' 'd'... contiennent chacun un seul fichier Z en xml
- dans ce fichier Z il y a un texte par ligne avec des balise xml

Je cherche à faire un programme qui ouvre le répertoire X et qui lise tous les fichiers Z (contenus dans 'a' ou 'b' ou 'c'...) ligne par ligne et qui ajoute au début de chaque ligne la balise xml dans laquelle se trouve le nom du sous-rép 'a' 'b' 'c' 'd'...

exemple :

fichier entrée :
<texte> bla bla bla <\texte>

fichier sortie :
<a><texte> bla bla bla <\texte><\a>

J'espère avoir été claire dans mon explication.

Merci d'avance de votre aide.