Bonjour,

J'ai écrit le code suivant pour afficher un histogramme mais l'image générée reste toujours vide et je ne comprends pas pourquoi.
Voici le code :
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
 
#!usr/bin/perl -w
use strict;
 
use GD::Graph::bars;
 
   my @data = (
      ["0", "1", "2", "3", "4", "5", "6"],
      [ 0,  15,  8,  30,  5,  0,  20]
   );
   my $graph = GD::Graph::bars->new(600,400);
   $graph->set(
           x_label           => 'Heure',
           y_label           => 'Nombres de visiteurs',
           title             => 'Affluence selon l\'heure de la journée',
   );
my $gd = $graph->plot(\@data);
open(PNG,'>', "monimage.png") or die "Erreur ecriture sur monImage.png: $!";
print PNG $gd->png;
close PNG;
Est-ce que vous auriez une idée du problème ?

Merci