Ищете способ представления данных в текстовом файле в виде графика

Question

У меня есть текстовый файл, который я хотел бы вывести в виде графика. Текстовый файл выглядит примерно так -

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

Я хотел бы вывести его на гистограмму или круговую диаграмму. Каков наилучший способ сделать это?

Answer 1

Или вы можете использовать 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);
}

Answer 2

Если вы хотите получить реальное изображение, используйте Chart :: Pie (IIRC помечает GIF) - ссылка является примером использования в POD.Пакет также имеет Диаграмма :: Бары , а также