Discussion :

[etranger]

Bonsoir

j'ecrit un script qui doit me faire un histograme de la frenquence d'apparition des charactaires dans un fichier donner, pour cela j'utilise le module Tk::Graph.

Dans la documentation de l'API, cette exemple est donner :

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
#!/usr/local/bin/perl
 
use Tk;
use Tk::Graph;
 
   $mw = MainWindow->new;
   my $data = {
        Sleep   => 51,
        Work    => 135,
        Access  => 124,
        mySQL   => 5
   };
   my $ca = $mw->Graph(
                -type  => 'BARS',
        )->pack(
                -expand => 1,
                -fill => 'both',
        );
   $ca->configure(-variable => $data);     # bind to data
   # or ...
   $ca->set($data);        # set data
   MainLoop;

or je n'arrive pas a comprendre qu'est ce que $data, qui sert a passer les parameteres au graph, est en realitee ? une variable , un tableau ou un hash ?

car j'aimerait remplir le tableau avec une boucle (donc je ne pourait pas utiliser la syntaxe de l'exemple), j'ai essayer d'utiliser un hash mais sa ne fonctione pas :

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
#!/usr/local/bin/perl
 
use Tk;
use Tk::Graph;
#use strict;
 
  my %data;
  my $mw = MainWindow->new;
  for (a..z) { 
              $data{"$_"} = 2; # valeure bidon <-----------
              }
 
   my $ca = $mw->Graph(
                -type  => 'BARS',
        )->pack(
                -expand => 1,
                -fill => 'both',
        );
   $ca->configure(-variable => $data);     # bind to data
   # or ...
   $ca->set($data);        # set data
   MainLoop;

merci d'avance.

[Jedai]

$data est une référence sur un hash anonyme dont les clés sont les barres de ton graphe et les valeurs sont les hauteurs associées. Si tu ne comprend pas "référence sur un hash anonyme", va faire un tour sur la FAQ.

--
Jedaï

[etranger]

Merci, maintenant j'ai compris.

apropos, connaissez vous d'autre module pour dessiner des graph que Tk::Graph? si possible pas trop lourd a installer, parceque l'affichage avec Tk::Graph n'est pas super. exemple (piece joint).

[Jedai]

Tu peux régler pas mal de truc dans Tk::Graph, tu devrais essayer.
Sinon, GD génère des graphes, toujours pareil il faut un peu de configuration pour obtenir des choses sympas. Enfin Gnuplot est un logiciel extérieur pas mal utilisé pour faire des graphiques. Il y en a sans doute d'autres...

--
Jedaï

[etranger]

Merci