Discussion :

[mashu]

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 :

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

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

[Gardyen]

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

[Philou67430]

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.

[Lolo78]

Bonsoir,

la ligne

Code :

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

($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.

[elbeho]

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.