Discussion :

[niklos0]

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 :

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

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 :

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

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?

[niklos0]

J'ai trouvé, il suffi de faire:

Code :

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

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