Discussion :

[vince2005]

Bonjour,

J'ai besoin de lister un repertoire pour récupérer les fichiers en csv, afin de connaitre le nombre de fichier lister.

Comment faire ?

Merci

[Gaillac]

Sous Unix/Linux?
En utilisant les services fournis par l'OS

Code :

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

1
2
3
4
my $repertoire = "/home/je/suis/ton/pere";
my @ls = `ls  $repertoire`;
 
print @ls;

(Doit aussi avoir son équivalent windowsien à base de dir)

Sinon, pour s'affranchir de l'OS c'est un peu plus complexe, mais plus portable :

http://perl.developpez.com/faq/perl/?page=section1

[vince2005]

je suis sous windows !!

merci, mais ton résultat ne me donne pas le nombre de fichier, simplement le nom des fichiers dans un tableau.

[Gaillac]

je suis sous windows !!

merci, mais ton résultat ne me donne pas le nombre de fichier, simplement le nom des fichiers dans un tableau.

Code :

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

ls | wc -l

Mais ça reste Unixien

[Philou67430]

Une des solutions les plus simples est d'utiliser la fonction glob (perldoc -f glob).

L'autre solution alternative, c'est de parcourir le répertoire avec les fonctions opendir et readdir (perldoc -f opendir).

Exemple avec glob :

Code :

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

my @csv_files = glob("*.csv");

[Gaillac]

merci, mais ton résultat ne me donne pas le nombre de fichier, simplement le nom des fichiers dans un tableau.

La taille de ton tableau doit sans doute correspondre au nombre de fihciers/dossiers présents.

[Philou67430]

Pour avoir le nombre d'éléments du tableau, il suffit d'utiliser ce tableau dans un contexte scalaire. Plusieurs solutions :

Code :

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

1
2
3
 
my $nb_csv = @csv_files;
$nb_csv = scalar(@csv_files);

On peut aussi récupérer directement le nombre d'élément avec le pseudo opérateur goatse =()= :

Code :

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

my $nb_csv = () = glob("*.csv");

[Lolo78]

La solution avec opendir et readdir, présentée ici comme un uniligne:

Code :

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

1
2
$ perl -e 'opendir DIR, "/usr/bin"; @d = readdir DIR; print scalar @d, "\n";'
527