[求助] chartdir for perl 如何能够让生成的图片里面正确显示中文?

YTHTdeWo

代码如下:

#!/usr/bin/perl -w
use strict;
use perlchartdir;

# The data for the line chart
my $data = [30, 28, 40, 55, 75, 68, 54, 60, 50, 62, 75, 65, 75, 91, 60, 55, 53, 35,
    50, 66, 56, 48, 52, 65, 62];

# The labels for the line chart
my $labels = ["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"];

# Create a XYChart object of size 250 x 250 pixels
my $c = new XYChart(300, 300);

# Set the plotarea at (30, 20) and of size 200 x 200 pixels
$c->setPlotArea(50, 50, 200, 200);

# Add a line chart layer using the given data
$c->addLineLayer($data);

# Set the labels on the x axis.
$c->xAxis()->setLabels($labels);

# Display 1 out of 3 labels on the x-axis.
$c->xAxis()->setLabelStep(3);

$c->xAxis()->setTitle("X:中文X轴");
$c->yAxis()->setTitle("Y:中文Y轴");

# output the chart
$c->makeChart("s1.png")

生成的结果见附件~

我用的是windows xp系统.
我试着加过
$c->setDefaultFonts("mingliu.ttc");
或者
$c->yAxis()->setTitle(decode("iso8859-1","Y:中文Y轴"));

X轴和Y轴的中文都不能正确显示,不知道大家有什么办法呢??

先谢谢大家了!!!

[ 本帖最后由 YTHTdeWo 于 2008-3-23 22:40 编辑 ]

YTHTdeWo

自己顶一下,拜托大家帮忙看看~~

odacharlee

我在linux下试了试发现好使……

两点：
1. $c->setDefaultFonts("mingliu.ttc");   setDefaultFonts需要带四个参数，
    分别是普通字体、粗体、斜体、粗斜体对应的字体（具体情况参考文档）
    因此应当写成
    $c->setDefaultFonts("mingliu.ttc", "mingliu.ttc", "mingliu.ttc", "mingliu.ttc");

2. 如果1不行，那么要将mingliu.ttc复制到lib/fonts下面
    （我用的是linux版，windows版的目录也许不一样，也许根本不用copy）


附图一张，我用的是simsun.ttc

YTHTdeWo

谢谢odacharlee大哥的解答~~

不好意思,因为上班的地方不能上外网,现在才看到

我试了下:
$c->setDefaultFonts("mingliu.ttc", "mingliu.ttc", "mingliu.ttc", "mingliu.ttc");

还是不行

然后把mingliu.ttc找出来,copy到目录,,,这样写的:

my $my_font = "C:/Perl/lib/ChartDirector/lib/mingliu.ttc";
$c->setDefaultFonts("$my_font", "$my_font", "$my_font", "$my_font");

两次的结果一样,乱码....

附图一张，用的仍然是simsun.ttc

odacharlee

把你的源代码保存成utf8格式试试。
一般高级些的编辑器EmEditor等在保存时都可以选择编码方式
实在没有，windows的记事本也行
另存然后选择字符编码为UTF-8

YTHTdeWo

原帖由 odacharlee 于 2008-3-24 23:43 发表
把你的源代码保存成utf8格式试试。
一般高级些的编辑器EmEditor等在保存时都可以选择编码方式
实在没有，windows的记事本也行
另存然后选择字符编码为UTF-8

呵呵,试过了,好了,谢谢odacharlee大哥!!真没想到是编码问题....

用这个语句就行了
$c->setDefaultFonts("mingliu.ttc", "mingliu.ttc", "mingliu.ttc", "mingliu.ttc");
也不用copy mingliu.ttc,直接能找到的

[ 本帖最后由 YTHTdeWo 于 2008-3-25 19:18 编辑 ]

撒哈拉里的鱼

这个软件是收费的吧？

hawking8987

1. 你如果已经用了 Encode 的decode
“$c->yAxis()->setTitle(decode("iso8859-1","Y:中文Y轴"));”

那么选择编码方式为 gb2312或者GBK，即
“$c->yAxis()->setTitle(decode("gb2312","Y:中文Y轴"));”

编辑完保存的时候保存为系统默认的gb2312格式就可以了



2. 如果你不用decode，那么保存的时候选择UTF-8 就可以直接支持中文了