美国波士顿大学一个计算机学院的99届学生David Bonner基于GD模块进行二次开发的适用于Perl语言的画图模块Chart， 最新版本是2.4.1(
[url]http://search.cpan.org/~chartgrp/Chart-2.4.1/Chart.pod[/url]，由一个新group维护)，可以帮助Perl程序员方便地实现各类图表的绘制，如饼图，柱图，折线图，趋势图，分布图等，具体可以看上面的链接文档。
最近用该模块绘制基于一年数据的柱图时，发现横坐标总是上下分行，还规律不定。我想我只是在每月初打印横坐标，为何给我分行。我按文档说明已经设置x_ticks为normal了，怎么还是staggered呢（缺省也是normal）。后来跟踪Chart模块的源代码发现，这是一个忽略的逻辑问题。Chart认为该图表有365个数据点，横坐标无法显示（虽然其实只有至多12点需要横坐标），所以强制改x_ticks由normal到staggered，所以出现上下分行显示，规律不齐是因为有的月份30天，有的31天，奇偶性不同。后来在源模块中改变下行代码，即可实现单行显示（当然staggered设置还是可以继续生效）。
if ($delta <= ($self->{'x_tick_label_length'} * $w) / $self->{'skip_x_ticks'}) {
改为
改为
if ($delta <= ($self->{'x_tick_label_length'} * $w) / $self->{'skip_x_ticks'} && !$self->{'custom_x_ticks'}) {
上述改动意味着只有等距坐标宽度不够才作强制设置。当自定义横坐标系列时，不做此检查和设置变化。
该模块的纵坐标设置也有些问题，以后有空也要做些改进。比如全系列为0值时的步长和初始值。
本文转自 dannyy1026 51CTO博客，原文链接:http://blog.51cto.com/dannyyuan/38480
if($d_width ==0){
$d_min--;
$d_max++;
$d_width=2;
} 应改为
if($d_width==0){
if($d_min>=1){
$d_min--;
$d_max++;
} else {
$d_max +=2;
}
$d_width = 2;
}