Discussion :

[Premium]

Bonjour,

Je parts d'un tableau contenant des données de ce type :

Code :

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

1
2
3
4
5
["24/11/2007", "a", 1, 2, 3, 4];
["24/11/2007", "b", 5, 6, 7, 8];
["24/11/2007", "c", 9, 10, 11, 12];
["25/11/2007", "d", 10, 20, 30, 40];
["25/11/2007", "e", 50, 60, 70, 60];

Je souhaite obtenir une table de hachage qui pour une date donnée lui associerait comme valeur un tableau dont les valeurs sont des références vers d'autres tableaux.
Et donc, en partant des données que j'ai pris comme exemple, j'obtiendrais comme affichage en sortie :

Code :

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

1
2
3
4
5
24/11/2007 : a 1 2 3 4
b 5 6 7 8
c 9 10 11 12
25/11/2007 : d 10 20 30 40
e 50 60 70 60

Voici le code que j'ai écrit :

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
33
34
35
36
#!usr/bin/perl -w
use strict;
 
my $ref1 = ["24/11/2007", "a", 1, 2, 3, 4];
my $ref2 = ["24/11/2007", "b", 5, 6, 7, 8];
my $ref3 = ["24/11/2007", "c", 9, 10, 11, 12];
my $ref4 = ["25/11/2007", "d", 10, 20, 30, 40];
my $ref5 = ["25/11/2007", "e", 50, 60, 70, 60];
 
#insertion des données dans le tableau
my @tab = ();
push(@tab, $ref1);
push(@tab, $ref2);
push(@tab, $ref3);
push(@tab, $ref4);
push(@tab, $ref5);
 
 
#table de hachage avec comme clé une date et comme valeur une référence vers un tableau
my %date_tab = ();
 
#reference vers un tableau
my $ref;
 
#parcours du tableau pour récupérer les infos à ajouter dans la table de hachage
foreach my $datas(@tab){
	$ref = [$$datas[1], $$datas[2], $$datas[3], $$datas[4], $$datas[5]];
	$date_tab{$$datas[0]} = [$ref];
}
 
while(my ($cle,$valeur) = each(%date_tab)){
   print "$cle : ";
   foreach my $data(@$valeur){
		print "$$data[0] $$data[1] $$data[2] $$data[3] $$data[4]\n";
   }
}

Le soucis que j'ai, c'est que je n'arrive pas à savoir comment faire pour ne pas écrasé les données pour obtenir ce que je souhaite.

En sortie, j'obtiens :

Code :

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

1
2
25/11/2007 : e 50 60 70 60
24/11/2007 : c 9 10 11 12

Merci

[Woufeil]

Bonjour,

A une clé, tu associes un tableau contenant un autre tableau. L'astuce va être la suivante : je te propose d'associer à une clé un tableau contenant autant de tableau que tu as de ligne par date. Pour cela, il faut agir sur le premier foreach. Tu testes l'existence de la clé à chaque tour de boucle. Si elle existe n'existe pas, on se retrouve dans le cas que tu as programmé. Si elle existe, il te suffit de rajouter $ref dans ton tableau déjà présent. Voilà comment tu pourrais modifier ton foreach :

Code :

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

1
2
3
4
5
6
7
8
9
foreach my $datas(@tab){
	$ref = [$$datas[1], $$datas[2], $$datas[3], $$datas[4], $$datas[5]];
	if ((exists $date_tab{$$datas[0]})) {
		push (@{$date_tab{$$datas[0]}}, $ref);
	}		
	else { 
		$date_tab{$$datas[0]} = [$ref];
	}
}

Je te conseille de vérifier le résultat à l'aide du module Data:: Dumper par print Dumper( %date_tab);

Dis nous si ça te convient

[Schmorgluck]

Étant donné que la clé d'un hachage est unique, que la même date peut apparaître plusieurs fois dans les données, et que tes données sont sous forme de tableaux, tu dois utiliser, pour ce que tu veux faire, un hachage contenant des références à des tableaux de références à des tableaux. Ou, pour dire les choses plus simplement (hum), un hachage de tableaux de tableaux. Ce n'est pas exagérément compliqué à faire, mais c'est un brin délicat et demande un peu de concentration (comme toujours en info dès qu'on travaille avec des références ou des pointeurs).

Voici comment je procéderais pour remplir ce hachage :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
my %date_tab;
 
foreach my $entry(@tab)
{
# on récupère les données, séparant au passage la date du reste
        my ($date,@data)= @$entry;
# Si elle n'existe pas encore, on initialise l'entrée du hash correspondant à la date
# avec une référence anonyme à une liste vide.
        $date_tab{$date}=[] unless(exists $date_tab{$date});
# on AJOUTE une référence vers @data au tableau référencé par $date_tab{$date}
        push @{$date_tab{$date}}, \@data;
}

J'ai mis "ajoute" en majuscule dans le dernier commentaire parce que c'est précisément le problème de ta version, notemment cette ligne :

Code :

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

$date_tab{$$datas[0]} = [$ref];

où tu remplaces les données préexistantes s'il y en avait déjà.

[Premium]

Bonjour,

A une clé, tu associes un tableau contenant un autre tableau. L'astuce va être la suivante : je te propose d'associer à une clé un tableau contenant autant de tableau que tu as de ligne par date. Pour cela, il faut agir sur le premier foreach. Tu testes l'existence de la clé à chaque tour de boucle. Si elle existe n'existe pas, on se retrouve dans le cas que tu as programmé. Si elle existe, il te suffit de rajouter $ref dans ton tableau déjà présent. Voilà comment tu pourrais modifier ton foreach :

Code :

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

1
2
3
4
5
6
7
8
9
foreach my $datas(@tab){
	$ref = [$$datas[1], $$datas[2], $$datas[3], $$datas[4], $$datas[5]];
	if ((exists $date_tab{$$datas[0]})) {
		push (@{$date_tab{$$datas[0]}}, $ref);
	}		
	else { 
		$date_tab{$$datas[0]} = [$ref];
	}
}

Je te conseille de vérifier le résultat à l'aide du module Data:: Dumper par print Dumper( %date_tab);

Dis nous si ça te convient

Avec ta proposition de boucle, j'obtiens avec Data:: Dumper, cet affichage :

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
33
34
35
36
37
38
39
40
41
$VAR1 = '25/11/2007';
$VAR2 = [
          [
            'd',
            10,
            20,
            30,
            40
          ],
          [
            'e',
            50,
            60,
            70,
            60
          ]
        ];
$VAR3 = '24/11/2007';
$VAR4 = [
          [
            'a',
            1,
            2,
            3,
            4
          ],
          [
            'b',
            5,
            6,
            7,
            8
          ],
          [
            'c',
            9,
            10,
            11,
            12
          ]
        ];

Ca correspond à ce que j'attendais. Merci.

[Premium]

Étant donné que la clé d'un hachage est unique, que la même date peut apparaître plusieurs fois dans les données, et que tes données sont sous forme de tableaux, tu dois utiliser, pour ce que tu veux faire, un hachage contenant des références à des tableaux de références à des tableaux. Ou, pour dire les choses plus simplement (hum), un hachage de tableaux de tableaux. Ce n'est pas exagérément compliqué à faire, mais c'est un brin délicat et demande un peu de concentration (comme toujours en info dès qu'on travaille avec des références ou des pointeurs).

Voici comment je procéderais pour remplir ce hachage :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
my %date_tab;
 
foreach my $entry(@tab)
{
# on récupère les données, séparant au passage la date du reste
        my ($date,@data)= @$entry;
# Si elle n'existe pas encore, on initialise l'entrée du hash correspondant à la date
# avec une référence anonyme à une liste vide.
        $date_tab{$date}=[] unless(exists $date_tab{$date});
# on AJOUTE une référence vers @data au tableau référencé par $date_tab{$date}
        push @{$date_tab{$date}}, \@data;
}

J'ai mis "ajoute" en majuscule dans le dernier commentaire parce que c'est précisément le problème de ta version, notemment cette ligne :

Code :

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

$date_tab{$$datas[0]} = [$ref];

où tu remplaces les données préexistantes s'il y en avait déjà.

Je vais aussi tester le code que tu proposes. Merci à vous deux pour vos réponses.

[Premium]

Les 2 versions fonctionnent parfaitement. Encore merci