execution instruction sur plusieurs fichiers

Bonjour,
Je cherche a executer mon script non pas sur un fichier mais sur autant de fichiers txt que je trouve ds mon repertoire et sous repertoire...

Pour le moment j ai:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

#!/usr/bin/perl -s Use strict; Use Time::Local my $txt;   ($txt) = glob ("dir/*.txt);   Open(FILE, "$txt") or die "erreur";   While (my $ligne = <FILE>){ Instructions... }

---

Si je mets 2 fichiers txt ds mon repertoire, le script ne s'executequ'une seule fois...

Une idee pour boucler sur tous les fichiers txt d'un repertoire et sous-repertoire?

J'ai bidouiller qq trucs avec readdir, mais rien de bin: je ne pense pas qu'il faille partir la dessus.
Merci

Mashu

le code présenté là ne traite qu'un seul fichier, tu dois le modifier un peu

regarde dans la faq comment gérer un répertoire, ça pourrait t'aider

Une autre manière de traiter le problème, dans certains (notamment s'il n'est pas nécessaire de ré-écrire chaque fichier ; il est possible de traiter ce cas, mais c'est plus compliqué que la méthode de parcourir les fichiers avec glob), est d'utiliser l'opérateur <> et de fournir tous les fichiers à traiter en paramètre du script.

Bonsoir,

la ligne

Code:

---

($txt) = glob ("dir/*.txt);

---

ne récupère qu'un seul fichier, le premier qui vient.

Si tu veux en avoir plusieurs, il faut:

@files = = glob ("dir/*.txt);[/CODE]

Ensuite, tu peux vérifier chaque fichier individuellement.

Si tu dois parcourir ton répertoire en profondeur, regarde le module File::Find.
Il permet d'appliquer une fonction à tous les fichiers d'une liste d'arborescence.