Petit problème avec prog perl
Voici mon code:
Code:
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 !
