Créer un nom de @list dynamiquement

Version imprimable

28/09/2007, 11h59
MaitrePylos

Créer un nom de @list dynamiquement
Bonjour,

J'effectue ceci
Code:

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:

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:

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.
28/09/2007, 12h59
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:

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:

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

ou consulter un élément directement :

Code:

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ï
28/09/2007, 14h31
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

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:

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:

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.

08/10/2007, 13h44
MaitrePylos

Autant pour moi, mon fichier est vide :oops: