寻找一种将文本文件中的数据表示为图形的方法答案

【问题标题】：Looking for a way to represent data in a text file as a graph寻找一种将文本文件中的数据表示为图形的方法
【发布时间】：2010-11-14 14:13:00
【问题描述】：

我有一个文本文件，我想以图表的形式输出。文本文件看起来像这样 -

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

我想将其输出到条形图或饼图。最好的方法是什么？

【问题讨论】：

标签： perl command-line vbscript batch-file

【解决方案1】：

或者你可以使用 GD::Graph

使用严格;
使用 GD::Graph::bars；
使用 GD::Graph::hbars；
使用 GD::Graph::Data；

#由于某种原因，安装 GD::Graph 并没有将 save.pl 放入我的@INC 路径
需要“/usr/share/doc/libgd-graph-perl/examples/samples/save.pl”；

我的 $data = GD::Graph::Data->new([
    ["项目 1","项目 2","项目 3"],
    [1234, 5678, 910112],
    ]) 或死 GD::Graph::Data->error;

我的@names = qw/GDbars123 GDbars123-h/；

对于我的 $my_graph (GD::Graph::bars->new, GD::Graph::hbars->new)
{
    我的 $name = shift @names;

    打印 STDERR "处理 $name\n";

    $my_graph->设置（
    x_label => 'X 标签',
    y_label => 'Y 标签',
    title => '一个简单的条形图',
    #y_max_value => 8,
    #y_tick_number => 8,
    #y_label_skip => 2，

    #x_labels_vertical => 1，

    # 阴影
    bar_spacing => 8,
    shadow_depth => 4,
    shadowclr => 'dred',

    透明 => 0，
    )
    或警告 $my_graph->error;

    $my_graph->plot($data) 或死 $my_graph->error;
    save_chart($my_graph, $name);
}

【讨论】：

【解决方案2】：

如果您想要实际图像，请使用Chart::Pie（IIRC 它制作 GIF） - 该链接是 POD 中的使用示例。

同样的Chart package也有Chart::Bars

【讨论】：