Discussion :

[LE NEINDRE]

Bonjour à tous !

J'ai un souci avec un passage de variable:
J'ai:
* un script cgi dans lequel je vais avoir du texte et des graphes.
* un script cgi qui me permet d'insérer le graph
* un module perl qui dessine le graphe

Voilà une partie du 1er cgi (la page mère):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#!c:\perl\bin\perl.exe
print "Content-type:text/html\n\n";
...
.....du texte ... etc ...
.......
@pie0=('1','2','3','4');
@pie1=('10','20','30','40');
 
@pie=(\@pie0,\@pie1);
 
print "<img src='./graph.pl?DATA=".\@pie.">\n";
 
print "</body></html>\n";

L'image appelle un cgi nommé graph.pl, le voici:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#!c:\perl\bin\perl.exe
 
use CGI;
use TX2::Graph::Graph;
$cgi=new CGI;
$tab=$cgi->param('DATA');
$tab0=$tab->[0];
$tab1=$tab->[1];
open(fic,'>./fic.txt');
print fic "DEBUG: ".@{$tab0}->[0];
close(fic);
 
&TX2::Graph::Graph::PlotGraph($tab);

Et enfin la fonction &TX2::Graph::Graph:lotGraph() vient du module TX2::graph:

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
42
 
#!c:\perl\bin\perl
package TX2::Graph::Graph;
#%% Simple Pie chart | WWW | CGI, GD::Graph::pie
#______________________________________________
 
use CGI  qw/:standard/;
use GD::Graph::pie;
#use strict;
 
# Call it like this : <img src = 'piechart.cgi?x=200&y=100'>
 
sub PlotGraph()
{
      my $donnee=$_[0];
      my @DataText=$donnee->[0];
      my @DataValue=$donnee->[1];
      print "DONNEE ".$donnee->[0];
      my $xs = param('x');
      my $ys = param ('y');
      do {$xs = 200; $ys = 100} unless $xs;
 
      print "Content-type: image/gif \n\n";
 
      # For simple chart you can pass these in param string
      # for complex charts use data file
 
      my @data = (@DataText,@DataValue);
 
 
      my $graph = GD::Graph::pie->new($xs, $ys);
      $graph->set(
        title       => 'Analysis',
        y_max_value => 100
      );
 
      my $gd = $graph->plot(\@data);
      binmode STDOUT;
      print $graph->plot(\@data)->gif();
 
}
-1;

Or à l'affichage, j'ai une une croix symbolisant un gif non toruvé (rien de chargé) et l'erreur suivante ressortant d'apache:

Code :

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

1
2
 
[error] [client 127.0.0.1] Can't call method "gif" on an undefined value at c:/Perl/lib/TX2/Graph/Graph.pm line 38.\n

ça vient du fait probablement que mes variables ne sont pas bien passées.
les valeurs qui me permettent d'afficher le graphes sont dans un tableau de 2 tableau @pie. Je passe ensuite la référence de ce tableau au cgi graph.pl puis appelle la fonction PlotGraph avec cette référence en paramètre.

Qu'est ce qui ne va pas ? Quelle erreur je fais pour ne pas retrouver mes tableaux ????

Merci beaucoup pour votre aide !!
Et bonne journée

[Jedai]

Code :

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

print "<img src='./graph.pl?DATA=".\@pie."'>\n";

\@pie est une référence au tableau @pie qui va se stringifier par défaut en "ARRAY(....)" le ... étant une adresse machine inutile pour nous... Donc il est bien évident que ça ne peut pas marcher...
Une façon de faire serait :

Code :

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

1
2
3
4
5
6
 
my $textpie;
$textpie .= join( ',' , @{$pie[0]} );
$textpie .= ";";
$textpie .= join( ',' , @{$pie[1]} );
print "<img src='./graph.pl?DATA=".$textpie."'>\n";

Puis tu modifie graph.pl ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#!c:\perl\bin\perl.exe
use strict;
 
use CGI;
use TX2::Graph::Graph;
 
my $cgi=new CGI;
my $texttab=$cgi->param('DATA');
 
my($text0, text1) = split( /;/, $texttab );
($tab[0], $tab[1]) = ([split( /,/, $text0 )],  [split( /,/, $text1 )]);
 
TX2::Graph::Graph::PlotGraph($tab);

En faisant ça, on n'ouvre pas de faille de sécurité je pense (ce qu'un eval aurait fait).

--
Jedaï

[Jedai]

Par ailleurs ce TX2::Graph::Graph m'a tout l'air d'avoir été implémenté avec les pieds, peut-être serait-il préférable de refaire ça à neuf ?
Tu m'as l'air d'avoir là un mélange de technologie tout à fait détestable : dans le CGI principal, tu gères "à la main", dans graph.pl tu utilises l'interface objet de CGI.pm, et dans TX2::Graph::Graph on utilise l'interface standard de CGI.pm...

--
Jedaï

[LE NEINDRE]

Merci Jedaï, j'ai compris la grossière erreur que j'ai fait en voulant passer une référence de tableau en paramètre d'un script cgi. C'est un string qu'il attend donc il va passer ARRAY(0x????) comme une chaine de caractère, sans rien comprendre d'autre. T'as du te marrer en voyant ça. Alors dsl pour ça.

Maintenant tout marche bien, j'ai un joli graph. En revanche, je trouve qu'il y a pas bcp d'explication sur CPAN. Et je cherche à faire que le fond de mon gif soit d'une autre couleur que blanc.

Saurais tu si c'est possible et où je pourrais trouver l'information ??

Merci pour ton aide en tout cas !!!!

[Jedai]

En revanche, je trouve qu'il y a pas bcp d'explication sur CPAN. Et je cherche à faire que le fond de mon gif soit d'une autre couleur que blanc.

Saurais tu si c'est possible et où je pourrais trouver l'information ??

Hum... Le CPAN dit dans la section méthode de GD::Graph :

Code :

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

1
2
3
4
 
$graph->set(attrib1 => value1, attrib2 => value2 ...)
 
    Set chart options. See OPTIONS section.

Et plus loin, dans la section OPTIONS :

Code :

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

1
2
3
4
5
6
 
bgclr, fgclr, boxclr, accentclr, shadowclr
 
    Drawing colours used for the chart: background, foreground (axes and grid), axis box fill colour, accents (bar, area and pie outlines), and shadow (currently only for bars).
 
    All colours should have a valid value as described in "COLOURS", except boxclr, which can be undefined, in which case the box will not be filled.

Je trouve ça parfaitement clair pour ma part...

--
Jedaï

[LE NEINDRE]

A ok, j'avais chercher dans GD::Graph:ie ou Pie3d ou bars3s ...
Mais j'ai pas regarder dans GD::Graph

Maintenant j'ai une belle couleur d'arrière plan !!!!

Merci pour l'aide...

La matinée commence bien

Bonne journée !!