Syntaxe d'écriture d'une variable de type string sous le format d'un array

Version imprimable

09/03/2018, 11h48
grand_dup

Syntaxe d'écriture d'une variable de type string sous le format d'un array
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:

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
09/03/2018, 14h16
Lolo78
Bonjour,
Code:

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.

2 pièce(s) jointe(s)

Bonjour

Ma base de données est MySQL, les données extraient sont les suivantes :
Pièce jointe 359253

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

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
 
	  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
Pièce jointe 359257

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

Merci de votre aide