Voici mon code:
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.
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"; }
Merci !
Partager