Discussion :

[ManusDei]

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 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

#!/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

Bad Symbol for filehandle at myscript.pl line 3

Pourquoi ? Et que faire ?

Merci pour votre aide.

[Philou67430]

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 :

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

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 :

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

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]).

[ManusDei]

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

Code :

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

1
2
3
4
5
6
7
#!/usr/bin/perl
 
my @files = glob("$ARGV[0]/*");
 
foreach $file (@files) {
print $file;
}

[Philou67430]

Un conseil cela dit : ajoute

Code :

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

1
2
use strict;
use warnings;

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

Code :

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

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