Bonsoir,

je suis en train de faire modifier un programme existant mais j'ai quelques soucis pour parvenir à mes fins ...
Actuellement dans un fichier .pl , j'ai le bout de code suivant pour l'affichage d'un graphique (camembert)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
} elsif (defined($type) && length($type) && ($type eq 'pie')) {
    my ($width, $height) = (250, 250);
    my ($color1, $color2, $color3, $color4) = ("green", "orange", "lgray", "red");
    _make_pie($title_pie, $width, $height, $valide, 
              $invalide, $attente, $retournee, 
              $color1, $color2, $color3, $color4);
}
et le code pour le graphe est (je ne mets pas tout car très long)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
# _make_pie
sub _make_pie {
    my ($title, $width, $height, $data1, $data2, $data3, $data4, $color1, $color2, $color3, $color4) = @_;
 
    #[...]
 
	binmode STDOUT;
	print $gd->png;
    }
}
Le fichier cgi qui affichait le camembert qui avait été crée.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
<br>
        <center><img src="graph.cgi?type=pie"></center>
	<br />
	<table>
		<tr>
			<td><table border="0" bgcolor="#000000" cellpadding="1"><tr><td bgcolor="#00BF00" width="20">&nbsp;</td></tr></table></td>
			<td>Total valides</td>
			<td>&nbsp;&nbsp;&nbsp;</td>
			<td><table border="0" bgcolor="#000000" cellpadding="1"><tr><td bgcolor="#0000BF" width="20">&nbsp;</td></tr></table></td>
			<td>Total invalides</td>
[...]
Comme il me faut maintenant afficher n graphes (dans mon cas, c'est 4 graphes), j'ai stocké les différents graphes dans un tableau :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
my @pies;
qui contient des références vers les graphes qui ont été crées.
Ce tableau a été crée dans le fichier .pl

Ce que je voudrais savoir, c'est comment faire dans le fichier .cgi pour afficher mes n camemberts à l'écran ?

Merci