GD ::带Perl的图形

Question

我有每个学生的数据,例如

    Student Name         Score
    Jack                  89
    Jill                  70
    Sandy                 40

现在我试图使用GD :: Graph :: Bar在条形图中绘制这些图,但由于我对perl和模块很新,我看到我可以手动声明图表中的所有X和Y值被绘制.

但由于我不知道每个学生的名字和分数(从文本文件中提取),我希望能够自动执行这些值,

我在想哈希键和值是一个很好的方法.所以我把所有东西都放在哈希表中,%hash(学生名)=(得分)

任何人都可以帮助我将其绘制成条形图或指导我吗？或者你会推荐一种不同的方法吗？

谢谢

"更新

这是我可以通过输入学生姓名手动绘制图表的部分.

 my $graph = GD::Graph::bars->new(800, 800);

   @data = ( 
      ["Jack","Jill"],
      ['30','50'],
        );

     $graph->set( 
        x_label           => 'Students',
        y_label           => 'Scores',
        title             => 'Student Vs. Scores',
       y_max_value       => 60,
       y_tick_number     => 8,
       y_label_skip      => 2 
      ) or die $graph->error;


    my $gd = $graph->plot(\@data) or die $graph->error;

    open(IMG, '>file.png') or die $!;
     binmode IMG;
     print IMG $gd->png;

Answer 1

假设您的数据文件如下，使用制表符分隔符。

Student Name         Score
Jack                  89
Jill                  70
Sandy                 40

您可以执行类似的操作，将数据文件中的x轴和轴值推送到数组。y

use strict;
use warnings;
use CGI qw( :standard );
use GD::Graph::bars;

open my $fh, '<', 'data.txt' or die $!;

my (@x, @y);
while (<$fh>) {
   next if $. == 1;            # skip header line
   push @x, (split /\t/)[0];   # push 'Student Names' into @x array
   push @y, (split /\t/)[1];   # push 'Score' into @y array
}
close $fh;

my $graph = GD::Graph::bars->new(800, 800);

$graph->set( 
             x_label => 'Students',
             y_label => 'Scores',
             title   => 'Student Vs. Scores',
) or warn $graph->error;

my @data = (\@x, \@y);
$graph->plot(\@data) or die $graph->error();

print header(-type=>'image/jpeg'), $graph->gd->jpeg;

给你举个例子：

如果您想使用多个y轴值，假设您有另一个制表符分隔符列，例如Score2，您可以轻松地执行类似的操作。

my (@x, @y, @y2);
while (<$fh>) {
   next if $. == 1;
   push @x, (split /\t/)[0];
   push @y, (split /\t/)[1];
   push @y2, (split /\t/)[2];
}

并将您的@data数组更改为：

my @data = (\@x, \@y, \@y2);

你的结果将是：