Vous cherchez un moyen de représenter les données dans un fichier texte sous forme de graphique

Question

J'ai un fichier texte que je voudrais afficher sous forme de graphique. Le fichier texte ressemble à ceci -

Item 1 
--- 
     1234 
Item2 
--- 
     5678 
Item3 
---- 
     910112 

Je voudrais l'afficher sous forme de graphique à barres ou de camembert. Quelle serait la meilleure façon de le faire?

Answer 1

Si vous voulez une image réelle, utilisez Chart::Pie (IIRC il maks GIFs) - le lien est un exemple d'utilisation dans POD.

Le même Chart package a également Chart::Bars ainsi

Answer 2

Ou vous pouvez utiliser GD :: Graph

use strict; 
use GD::Graph::bars; 
use GD::Graph::hbars; 
use GD::Graph::Data; 

#For some reason, installing GD::Graph didn't put save.pl in my @INC path 
require "/usr/share/doc/libgd-graph-perl/examples/samples/save.pl"; 

my $data = GD::Graph::Data->new([ 
    ["Item 1","Item 2","Item 3"], 
    [1234, 5678, 910112], 
    ]) or die GD::Graph::Data->error; 

my @names = qw/GDbars123 GDbars123-h/; 

for my $my_graph (GD::Graph::bars->new, GD::Graph::hbars->new) 
{ 
    my $name = shift @names; 

    print STDERR "Processing $name\n"; 

    $my_graph->set( 
    x_label   => 'X Label', 
    y_label   => 'Y label', 
    title   => 'A Simple Bar Chart', 
    #y_max_value  => 8, 
    #y_tick_number => 8, 
    #y_label_skip => 2, 

    #x_labels_vertical => 1, 

    # shadows 
    bar_spacing  => 8, 
    shadow_depth => 4, 
    shadowclr  => 'dred', 

    transparent  => 0, 
    ) 
    or warn $my_graph->error; 

    $my_graph->plot($data) or die $my_graph->error; 
    save_chart($my_graph, $name); 
}