Discussion :

[grand_dup]

Bonjour

Voila j'utilise le module Excel Writer pour générer des graphiques dans l'exemple du liens ci-dessous
http://search.cpan.org/~jmcnamara/Ex...:_chart_bar.pl

John McNamara utilise la variable $heading et $datas

Code :

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

1
2
3
4
5
6
7
 
my $data = [
        [ 2,  3,  4,  5,  6,  7 ],
        [ 10, 40, 50, 20, 10, 50 ],
        [ 30, 60, 70, 50, 40, 30 ],
 
    ];

J'aimerais connaître la syntaxe afin de pouvoir construire cette variable à partir des données d'une base de données.
Y-a-t 'il d'autre syntaxe pour écrire cette variable.

Merci d'avance pour votre aide.

Cordialement

[Lolo78]

Bonjour,

Code :

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

1
2
3
4
5
6
7
 
    my $data = [
        [ 2,  3,  4,  5,  6,  7 ],
        [ 10, 40, 50, 20, 10, 50 ],
        [ 30, 60, 70, 50, 40, 30 ],
 
    ];

est une référence à un tableau de tableaux. Il a priori suffit de construire une variable du même type.

Mais je ne peux t'en dire plus si tu ne montres pas ce que tu récupères depuis ta base de données (et quel type de base). Post un dump de tes données issues de la base.

[grand_dup]

Bonjour

Ma base de données est MySQL, les données extraient sont les suivantes :


Un extrait du code ci-dessous pour insérer les données dans le fichier excel

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
 
	  my $SQL_TBL_SELECT = "SELECT Zone, Année, Semaine, KASPERSKY FROM vw_dashboard_hist_limit ORDER BY Année ASC, Semaine ASC, Zone ASC";
	  my $RST_TBL_SELECT = $dbh->prepare($SQL_TBL_SELECT);
	  $RST_TBL_SELECT->execute;
	  my $CNT_TBL_SELECT = $RST_TBL_SELECT->rows;	
 
	  my %DATAS;
	  my $Lig = 6;
	  my $Col = 0;
	  my $CUR_SEMAINE;
	  my $OLD_SEMAINE = '';
	  while (my $ROW_TBL_SELECT = $RST_TBL_SELECT->fetchrow_hashref()) 
	   {
		$CUR_SEMAINE = $ROW_TBL_SELECT->{'Semaine'};
		if ($CUR_SEMAINE eq $OLD_SEMAINE)
		 {
		  $SHEETS[0]->write($Lig, $Col, $ROW_TBL_SELECT->{'KASPERSKY'},$DATA3);
		  $Lig++;
		 }
		else
		 {
		  $Col++;
		  $Lig = 6;
		  $SHEETS[0]->write($Lig, $Col, $ROW_TBL_SELECT->{'KASPERSKY'},$DATA3);
		  $Lig++;
		 }
		$OLD_SEMAINE = $CUR_SEMAINE;
            # $DATAS{$ROW_TBL_SELECT->{'Zone'}}{$ROW_TBL_SELECT->{'Année'}}{$ROW_TBL_SELECT->{'Semaine'}} = $ROW_TBL_SELECT->{'KASPERSKY'};
	   }

et ci-dessous le résultat dans un tableau


Je voudrais construire ma variable afin de pouvoir créer mon graphique directement au lieu de passer par le tableau

Merci de votre aide