ITPub博客

首页 > 应用开发 > IT综合 > 安装Perl的GD模块

安装Perl的GD模块

原创 IT综合 作者:perltest 时间:2014-03-04 12:59:17 0 删除 编辑
医院管理中经常会需要一些统计表格、统计图形,所以需要安装GD模块来作图。

进入cpan> install GD
会提示没有安装libgd模块。

所以,先需要安装libgd模块:
atp-get update
apt-get install libgd2-xpm-dev

然后cpan>install GD,
安装成功。


测试一段作图代码:


#!/usr/bin/perl

use GD::Graph::lines;

@data=(
[(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26)],
[(6,7,10,14,20,26,32,38,46,54,62,70,76,80,84,86,88,90,92,93,94,95,96,96,96,96,96)],
);

$my_graph = new GD::Graph::lines(800,300);
$my_graph->set(
x_label =>'weeks',
y_label =>'visitors',
itle =>'Title',
transparent => 0,
);
$my_graph->plot(\@data);
save_chart($my_graph,'edit1');
sub save_chart
{
my $chart = shift or die 'Need a chart!';
my $name = shift or die 'Need a name!';
local(*OUT);
my $ext = $chart->export_format;
open(OUT, '>1.png') or
die 'Cannot open $name.$ext for write: $!';
binmode OUT;
print OUT $chart->gd->$ext();
close OUT;
}


显示效果还不错。



来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/21129783/viewspace-1100692/,如需转载,请注明出处,否则将追究法律责任。

下一篇: curl的表单处理
请登录后发表评论 登录
全部评论

注册时间:2016-08-15

  • 博文量
    113
  • 访问量
    106057