原创力文档- 1、本文档共8页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
使用Perl绘制统计图
直系同源预测方法
现在的位置:首页 Script＞正文
RSS
小中大
使用Perl绘制统计图
2011年10月22日⁄Script⁄暂无评论⁄被围观158views+
Bar
代码如下：
01 #!/use/bin/perl
02
03 use SVG::TT::Graph::Bar;
04
05 my @fields = qw(Jan Feb Mar);
06 my @data_sales_02 = qw(12 45 21);
07
08 my $graph = SVG::TT::Graph::Bar-new(
09 {
10 height = 500,
11 width = 300,
12 fields = \@fields,
13 }
14 );
15
16 $graph-add_data(
17 {
18 data = \@data_sales_02,
19 title = Sales 2002,
20 }
21 );
22
23 open( my $fh, , bar.svg );
24 select $fh;
25 binmode $fh;
26 print $graph-burn();
27 close($fh);
结果图片：
第2页 共12 页2012/2/10 11:01
BarHorizontal
代码如下：
01 #!/use/bin/perl
02 use SVG::TT::Graph::BarHorizontal;
03
04 my @fields = qw(Jan Feb Mar);
05 my @data_sales_02 = qw(12 45 21);
06
07 my $graph = SVG::TT::Graph::BarHorizontal-new(
08 {
09 height = 500,
10 width = 300,
11 fields = \@fields,
12 }
13 );
14 $graph-add_data(
15 {
16 data = \@data_sales_02,
17 title = Sales 2002,
18 }
19 );
20
21 open( my $fh, , barhorizontal.svg );
22 select $fh;
23 binmode $fh;
24 print $graph-burn(
文档评论（0）