[PERL] Problème d'espace avec glob()

Bonjour,

J'utilise la fonction glob() pour lister le contenu d'un répertoire.
Mais si il y a un espace dans le chemin alors c'est "découpé".

Un exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

use strict; use warnings;   my $SOURCE = "C:/Documents and Settings/toto/Desktop/a/*"; my @LISTFIC;   foreach (glob ($SOURCE)) { print ": $_ \n"; if (-f) {push(@LISTFIC,$_);} } my $nbfic = scalar(@LISTFIC); print("\n\n Nombre de fichiers : $nbfic \n" );

---

Résultat :

Citation:

---

: C:/Documents
: and


Nombre de fichiers : 0

---

Le chemin "C:/Documents and Settings/toto/Desktop/a/*" est considéré comme 3 entrées différentes à cause des espaces.
Comment remédier à ça ?

Deux solutions (au moins) :
- quote les parties avec des espaces :

Code:

---

my $SOURCE = qq(C:/"Documents and Settings"/toto/Desktop/a/*);

---

- antislash les espaces (l'antislash doit apparaitre dans la chaine, donc il faut un double anti-slash) :

Code:

---

my $SOURCE = "C:/Documents\\ and\\ Settings/toto/Desktop/a/*";

---

Les deux solutions ont été testées sous WinXP/Cygwin

Merci pour ton aide.

Finalement, on m'a proposé une solution pas mal :

Citation:

---

il faut utiliser la fonction bsd_glob de File::Glob au lieu de CORE::glob qui a ce comportement connu.
Un truc comme ça devrait le faire

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

#!/usr/bin/perl use warnings; use strict;   use File::Glob qw(bsd_glob); my $SOURCE = "C:/Documents and Settings/toto/Desktop/a/*"; my @LISTFIC;   foreach (bsd_glob ($SOURCE)) { print ": $_ \n"; if (-f) {push(@LISTFIC,$_);} } my $nbfic = scalar(@LISTFIC); print("\n\n Nombre de fichiers : $nbfic \n" );

---

---