Voici mon code:
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
16
17
18
19
20
21
#!/usr/bin/perl
 
#
$rep="H:\\rapports_des_seuils\\UNIX";
opendir(DIR, $rep) || die "Impossible de lire $rep : $!\n"; 
my @listeA = grep { not /^[.][.]?\z/ && -r "$rep/$_" } readdir(DIR);
@listeA = map{uc($_)} @listeA;
closedir(DIR);
$cpt = $#listeA;
#
for (my $j=0; $j <= $cpt; $j++) {
$rep="H:\\rapports_des_seuils\\UNIX\\$listeA[$j]";
#print "$rep\n";
opendir(DIR, $rep) || die "Impossible de lire $rep : $!\n"; 
my @listeA1 = grep { not /^[.][.]?\z/ && -r "$rep/$_" } readdir(DIR);
#@listeA+?j = map{uc($_)} @listeA;
closedir(DIR);
$cpt1 = $#listeA1;
#print "Autre\n";
print "$listeA1[2]\n";
}
Ce que j'aimerais faire est de faire incrémenter la table @listeA1 avec la variable $j pour que cela devienne @listeA1 pour la première passe dans le for @listeA2 pour la deuxième passe @listeA3 et ainsi de suite. Comment coder ça. J'ai essayer plusieurs choses mais cela ne fonctionne pas.

Merci !