Discussion :

[dedalios]

Bonjour , quid de La fonction glob
La fonction glob prend en argument une expression et renvoie une liste de noms de fichiers. Cette liste correspond
à l'évaluation de l'expression selon les wildcards du shell.
Par exemple, glob( '*.o' ) renvoie la liste des fichiers du répertoire courant ayant l'extension .o

Extrait du guide pdf

Voici un premier exemple de manipulation de noms de fichiers :

Code :

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

1
2
3
4
5
6
7
 
#!/usr/bin/perl
use strict;
use warnings;
foreach my $name ( glob('*') ) {
print "$name\n" if( -l $name );
}

Soit disant qu'il affiche les liens symboliques du répertoire courant.

et pourtant si
print (glob('*')); retourne la liste des fichiers présent la boucle foreach n'imprime rien NADA des CLOu .. quelque soit le systeme window ou unix . Qu'elle est le problème?

[Schmorgluck]

J'ai testé chez moi, et ça marche parfaitement, ça me liste les liens symboliques. Y a-t-il vraiment des liens symboliques dans ton répertoire de test ?

[Lolo78]

Pour déterminer l'origine du problème, teste progressivement.

Commence par exemple par:

Code :

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

1
2
 
my @liste = glob('*') ;

et affiche le contenu de @liste. Tu verras déjà si tu lis le bon répertoire, s'il contient bien des fichiers, etc. Ensuite seulement, si tout va bien, filtre la liste sur des liens symboliques.

[dedalios]

Je cherche a utiliser cette méthode pour obtenir la liste des fichiers présent sur le répertoire d'exécution (ou autre...).
Peut-être n'Est-ce pas la bonne méthode ?

Ce qui est étrange c'est que le résultat de

Code :

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

 print(glob('*'));

retourne bien cette liste de fichier. Peut-être ai-je mal compris le contenu de la boucle

Code :

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

1
2
3
4
 
foreach my $name ( $resglob  ) {
print "$name\n" if( -l $name );
}

notamment le test

Code :

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

 if( -l $name );

[dedalios]

Et voila il s'agissait da la compréhension de type de variable :

@MaVariable pour un tableau.

Code :

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

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use strict;
use warnings;
 
my @resglob = glob('*');
 
foreach my $name ( @resglob  ) {
print "$name\n";
}

Merci.

[Philou67430]

Soit dit en passant, afin de traiter de manière générique les joyeux noms de fichier contenant des espaces (sous Windows ou un système POSIX), il est préférable d'utiliser bsd_glob du module File::Glob.