Discussion :

[gavarax]

Bonjour,
Je débute en Perl et j'ai un problème sur la gestion de tableau.
Voici mon problème : j'extrais des informations d'un fichier grâce à des regex et je les stockent dans un tableau. Lorsque j'affiche les éléments du tableau un a un je les obtiens, mais lorsque je demande la taille du tableau celle ci est nulle.
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
 
use constant ID => 0;
use constant NOM => 1;
use constant PRENOM => 2;
 
 
my @templine;
my $taille;
 while(<FILE>){
	($tempLigne[ID]) = ($_ =~ m/identifiant:(\d+)/);
	($templigne[NOM]) = ($_ =~ m/nom:(\w)/);
	($templigne[PRENOM]) = ($_ =~ m/prenom:(\w)/);
	printf("%d, %d, %d \n",$tempLigne[ID] ,$templigne[NOM], $templigne[PRENOM]);
	$taille = @tempLine;
	printf("taille tableau : %d\n", $taille);
}

j'obtiens des chose du genre
22831, DEPP, JOHNY
taille tableau : 0
88731, PAGE, JIMMY
taille tableau : 0
....

J’espère que j'ai énoncé clairement mon problème
Merci de vos réponses !

[djibril]

Il faut TOUJOURS mettre

Code :

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

1
2
use strict;
use warnings;

En début de programme, cela t'aurait permis de voir les erreurs dans ton programme :-( !

my @templine; et $templigne

[gavarax]

Merci j'avis déjà mis strict mais pas warning. Je vais continuer avec ça Un petit tag résolu.

[gavarax]

En fait non j'ai oublié cette fois. Désolé pour cette question inutile du coup ....