Discussion :

[vince2005]

Bonjour,

J'ai répertoire qui contient des sous répertoires commencant par 20, comme 2014/2015.....

Or je voudrais pouvoir lister ces répertoires. Le script ci-dessus n'apprécie pas trop le caractére "*"

Code :

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

1
2
3
4
5
6
7
8
9
10
 
#---------
my $dirname = "C:\repertoire\20*";
print "$dirname\n";
 
opendir ( DIR, "$dirname") || die "Error in opening dir $dirname\n";
while( (my $filename = readdir(DIR))){
     print("$filename\n");
}
closedir(DIR);

Merci pour votre aide.

[Gardyen]

pourquoi ne pas lister tous les répertoires contenus dans C:\repertoire et ne parser que ceux qui matchent une expression qui va bien ?

[Philou67430]

Une solution alternative à celle de gardyen : la fonction glob("C:/repertoire/20*").
Attention, glob et readdir ne retourne pas tout à fait la même chose (perldoc -f glob et perldoc -f readdir).

Cela dit, attention à bien "échapper" les \ si tu les utilises dans les chemins (ce n'est pas obligatoire, on peut utiliser le /)

[Lolo78]

++ pour glob, c'est généralement bien plus pratique.