Lecture de chaque fichier d'un dossier

Bonjour,

je cherche à lire (ligne par ligne) tous les fichiers d'un dossier passé en paramètre d'un script, pour effectuer un traitement sur ces lignes.

Je voulais le faire en ksh, mais l'entreprise où je suis utilise une version particulière de grep :aie: donc je dois passer par perl pour mes expressions régulières.

J'avais pour quelques scripts réussi à me débrouiller avec "perl -ne" dans mes scripts ksh, mais là ça n'est pas possible, donc je dois faire un script totalement en perl.

En m'inspirant de ceci
http://stackoverflow.com/questions/2...isting-in-perl

J'ai écris ce script

Citation:

---

#!/usr/bin/perl

opendir my($dh), @argv or die "Couldn't open dir : $!";
my @files = readdir $dh;
closedir $dh;

foreach $file (@files) {
print $_;
}

---

Je commence léger, je veux afficher la liste des fichiers avant de rentrer dedans. Mais j'ai un message d'erreur

Citation:

---

Bad Symbol for filehandle at myscript.pl line 3

---

Pourquoi ? Et que faire ?

Merci pour votre aide.

Tu aurais peut-être intérêt, surtout si tu n'as qu'un niveau de répertoire à parcourir, à utiliser la fonction "glob", qui a l'avantage de retourner un ensemble de noms de fichiers avec leur path complet, ce qui n'est pas le cas de readdir.

Ainsi :

Code:

---

1 2 3 4 5 6 7 8 9

#!/usr/bin/perl   opendir my($dh), $ARGV[0] or die "Couldn't open dir : $!"; my @files = readdir $dh; closedir $dh;   foreach $file (@files) { print $_; }

---

Se transformerait en :

Code:

---

1 2 3 4 5 6 7

#!/usr/bin/perl   my @files = glob("$ARGV[0]/*");   foreach $file (@files) { print $_; }

---

(j'ai au passage corrigé : @argv n'existe pas au démarrage du script, c'est @ARGV, et pour récupérer le premier paramètre, j'ai écrit $ARGV[0]).

Merci. Par contre, dans le foreach j'ai dû remplacer le $_ par $file.

Code:

---

1 2 3 4 5 6 7

#!/usr/bin/perl   my @files = glob("$ARGV[0]/*");   foreach $file (@files) { print $file; }

---

Un conseil cela dit : ajoute

Code:

---

1 2	use strict; use warnings;

---

en début de script.
Ceci te forcera alors à écrire :

Code:

---

1 2 3

foreach my $file (@files) { print $file; }

---