安装Perl的GD模块

医院管理中经常会需要一些统计表格、统计图形，所以需要安装GD模块来作图。

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

所以， 先需要安装libgd模块：
atp-get update
apt-get i nstall 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/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/21129783/viewspace-1100692/