Discussion :

[sephiburp]

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 :

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

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 :

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

[Philou67430]

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

Code :

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

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 :

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

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

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

[sephiburp]

Merci pour ton aide.

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

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

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

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" );