Discussion :

[MaitrePylos]

Bonjour,

J'effectue ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
for ( $i = 0 ; $i < 5 ; $i++ ) {
 
 
 
    @recupList{$i} = @list;
 
 
 
 
}

je voudrais donc récupérer

Code :

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

1
2
3
4
5
6
 
  @recupList0
  @recupList1
  @recupList2
  @recupList3
  @recupList4

Mais cela ne fonctionne pas, j'ai beau chercher

j'ai bien trouvé avec les variables

Code :

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

1
2
3
4
 
$var = "recupList$i";
 
$$var = @list

mais cela reste une variable, mais j'ai besoin d'une liste.


Merci de votre aide.

MaitrePylos.

[Jedai]

Ne fais pas ça !! Les variables symboliques sont le mal(TM), elles mangent ton cerveau au ptit déj' !
Plus sérieusement, utiliser les variables symboliques est vraiment une très mauvaise idée, tu t'exposes à plein de petits dangers, très difficiles à déboguer quand tu as la malchance de faire une erreur (utilises tu "strict" et as-tu lu notre section sur le style en Perl au fait ?).
D'autant que c'est parfaitement inutile en Perl, avec les structures de données complexes, par exemple dans ton cas :

Code :

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

1
2
3
for ( $i = 0 ; $i < 5 ; $i++ ) {
   $recupList[$i] = [@list];  
}

et plus loin tu peux récupérer la première des liste avec :

Code :

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

my @list = @{$recupList[0]};

ou consulter un élément directement :

Code :

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

my $snd_elt_from_fst_list = $recupList[0][1];

Lis la section de notre FAQ sur les références pour plus de détails.

--
Jedaï

[MaitrePylos]

Bonjour,

Tout d'abord un grand pour toutes l'aide que tu m'apportes.

Je pense avoir essayer toutes les combinaison possible, et il fallait juste [].

Pour répondre à tes questions :

oui, j'utilise le Strict , je pense même que c'est la première chose que j'ai appris avec le shebang.

Par contre je ne vois pas la section sur le style en Perl, mais bon je suis fatigués.

Je pense me mettre ce W-K à la Poo en Perl.

Encore merci de ton aide

MaitrePylos

[MaitrePylos]

Je reviens avec mes @list dynamique.

Bon alors je crois que j'ai tout lus, et des fois ça marche, des fois ça marche pas.


j'essaye de faire un while d'un fichier et de le mettre dans une liste dynamique.

je fais comme ceci

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
22
23
24
25
26
27
28
29
30
31
32
 
my $size = \@size;
my $utilisateur = \@utilisateur;
my $nomDuFichier = \@nomDuFichier;
my $dateFichier = \@dateFichier;
...
 
#ici je suis dans une boucle for et j'y fais un while
  while ( my $ligne = <FILE> ) {
            (
                $droits,   $inode,    $user,     $group, $poids,
                $dateMois, $dateJour, $dateAnne, $nomFichier
            ) = split /\s+/, $ligne;
 
            push @{$size[$i]} , $poids;
            push @{$utilisateur[$i]}, $user;
            push @{$nomDuFichier[$i]}, $nomFichier,
            push @{$dateFichier[$i]}, $dateMois . "-" . $dateJour . "-" . $dateAnne;
 
            push @recupTableau, $nomFichier;
 
        }
 
 
 
 
#ensuite je boucle pour avoir le résultats
 
for ($i = 0; $i < @{$nomDuFichier[0]} ; $i++)
{
	print $nomDuFichier[0][$i]."\n";
}

j'obtient l'erreur suivante :

Code :

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

1
2
3
 
Use of uninitialized value in array dereference at test.pl line 224.
Use of uninitialized value in numeric lt (<) at test.pl line 224.

Merci de votre aide.

[MaitrePylos]

Autant pour moi, mon fichier est vide