Perl et la fonction glob

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:

---

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?

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 ?

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

Commence par exemple par:

Code:

---

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.

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:

---

print(glob('*'));

---

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

Code:

---

1 2 3 4

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

---

notamment le test

Code:

---

if( -l $name );

---

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

@MaVariable pour un tableau.

Code:

---

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.

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.