进入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/