GD ::带Perl的图形

发布时间：2020-12-16 06:25:23 所属栏目：大数据来源：网络整理

导读：我有每个学生的数据,例如 Student Name Score Jack 89 Jill 70 Sandy 40 现在我试图使用GD :: Graph :: Bar在条形图中绘制这些图,但由于我对perl和模块很新,我看到我可以手动声明图表中的所有X和Y值被绘制. 但是因为我不知道每个学生的名字和分数(从文本文件

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

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;

解决方法

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

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);

你的结果将是：

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!