scanner des dossiers et les mettre dans une liste

Bonjour a tous,

J'essaye de faire un script qui va scanner les dossiers contenu dans un autre et je voudrai mettre les fameux dossier dans une liste.

Je m'explique:

J'ai un script avec ceci dedans:

Code:

---

my @REPERTOIRES =("pica0001.549","pica0002.549","pica0003.549","pica0004.549","pica0005.549","pica0006.549","pica0007.549","pica0008.549","pica0009.549","pica0010.549");

---

mes dossiers pica00**.549 se trouvent dans un dossier "truc".

Mon nombre de dossier pica00**.549 est modifier régulièrement.

J'aimerai trouver un système pour que mon script perl scan le dossier "truc" et récupère dynamiquement mes dossiers pica00**.549 pour les mettre dans ma liste @REPERTOIRES pour ne pas avoir a modifier mon script a chaque fois qu'un nouveau répertoire et créer.
Comment puis-je faire?

Edit: j'arrive a récupérer la liste en fesant ca:

Code:

---

1 2 3

my @subdirs = grep { -d } readdir(DIR);   closedir(DIR);

---

Je dois juste rajouter un expression régulière qui me permettra de ne "prendre" que les dossiers contenant le mot "pica".

Une solution?

J'ai trouvé, il suffi de faire:

Code:

---

1 2 3 4 5 6 7

my @subdirs = grep { -d } readdir(DIR);   #@subdirs2 est la liste des sous-répertoires de @subdirs contenant le mot pica my @subdirs2 = grep($_ =~ /pica/, @subdirs);     closedir(DIR);

---

la subdirs2 contient ce qu'il faut :yaisse2: