Discussion :

[SYL666]

Bonjour,
Je rencontre un "petit" (gros en fait) soucis sous perl Windows (activeperl 5.8.8) avec glob() (idem pour <>) :
il se trompe sur les repertoire (et uniquement sur les rep, pas les fichiers) contenant des espaces.

Je dois faire un traitement sur chacun des fichiers d'un repertoire, avec une recursion si le fichier est un repertoire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
sub convertDir {
my $baseDir = @_[0];
my @files = glob("$baseDir/*");
printf("fichiers trouves : %s\n", join(':', @files));
foreach(@files) {
	if (-d $_) {		
		convertDir($_);
	} elsif (-e $_) {
		convert($_);
	}else {
		print("erreur : $_ inexistant\n");
	}
}
return $convertErr;
}

Et bien, bien que cela puisse etre etrange, j'ai bien des "erreur : $_ inexistant" qui s'affiche.
Exemple
voici ce que j'ai, pour un repertoire "in\Civil-Military Relation Ind-Pak2" contenant 9 fichiers, sans sous-repertoire et je lance la fonction sur le repertoire "in" :

fichiers trouves : in/Civil-Military:Relation
erreur : in/Civil-Military inexistant
erreur : Relation inexistant

Il me trouve 2 fichiers : "in/Civil-Military" et "Relation", qui bien entendu n'existe pas.

Le programme marche sans aucaun soucis s'il n'y a pas d'espace dans les nom de repertoire. Ca marche pire encore si je remplace les "/" par les "\" windows (doubles pour ne pas les confondre avec les \ procteurs)

Que passa?

[2Eurocents]

Et juste pour voir, si l'on protège les " " avec un quotemeta ?

Code :

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

1
2
3
4
5
6
7
sub convertDir {
my $baseDir = quotemeta (@_[0]);
my @files = glob("$baseDir/*");
printf("fichiers trouves : %s\n", join(':', @files));
...
return $convertErr;
}

[rcageot]

as tu essayé avec opendir et readdir pour voir si tu avais le même pb ?

[SYL666]

et zou! un post resolu 1!

Merci 2Eurocents!
Le quotemeta m'a en effet resolu ce soucis. J'aurai du y penser... je ferai mieux la prochaine fois