免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 2439 | 回复: 3

使用GD模块画圆遇到的中文乱码问题 [复制链接]

论坛徽章:
0
发表于 2009-04-10 09:56 |显示全部楼层
我的代码在原先的服务器里没有问题,,移到另一个服务器就出现了中文乱码...是不是新的服务器的模块安装出问题,,或者是服务器不支持原先TTF的文件呢?

论坛徽章:
0
发表于 2009-04-10 10:00 |显示全部楼层

我的代码就这一个文件

  1. #!/usr/bin/perl
  2. use   strict;
  3. use  GD::Graph::pie;   
  4. use Encode;  
  5. use   CGI;   
  6. my $cgi =  new CGI;  
  7. my $m = $cgi->param('m');
  8. my $dat = $cgi->param('dat'); #数据
  9. my $TITLE = $cgi->param('TITLE'); #标题
  10. my $size = $cgi->param('s'); #大小

  11. $TITLE = "面积:24398亩  种植比例:"  if($TITLE eq "");
  12. $TITLE = decode("gb2312",$TITLE);
  13. $dat="小麦\n22.8%:22.8|水稻\n32.2%:33.2|棉花\n21%:21|油菜\n8%:8|其他\n5%:5" if($dat eq "");
  14. $size=200 if($size eq "");
  15. my @lines=split(/\|/,$dat);
  16. my @datax=();  my @datay=();
  17. foreach my $line(@lines){
  18.         my($a,$b)=split(/:/,$line);
  19.         push(@datax,decode("gb2312",$a));
  20.         push(@datay,$b);
  21. }


  22. my   $graph = new GD::Graph::pie($size,$size);   
  23. my   @data     =   (   
  24.           \@datax,,   
  25.           \@datay,   
  26.   );   

  27.   
  28.    
  29. $graph->set(     
  30.           title => $TITLE,   
  31.           '3d'=>1 ,
  32.           dclrs => [ qw(lred lgreen lyellow lpurple cyan lorange lblue green pink) ]  
  33. );   
  34. $graph->set_title_font("/fonts/STZHONGS.TTF",11);
  35. $graph->set_value_font("/fonts/STZHONGS.TTF",10);
  36. $graph->set_label_font("/fonts/SURSONG.TTF",10);
  37. my   $gd_image   =   $graph->plot(   \@data  );   

  38. if(!$m){   
  39. print   $cgi->header(-type=>"image/png",-expires=>"-1d");   
  40. binmode   STDOUT;   
  41. print   $gd_image->png;   
  42. }
复制代码

论坛徽章:
0
发表于 2009-04-10 10:03 |显示全部楼层

显示的结果变成这样



应该不是输入UTF8或者GB2312的问题...

论坛徽章:
0
发表于 2009-04-13 09:40 |显示全部楼层
/fonts/SURSONG.TTF
/fonts/STZHONGS.TTF
新服务器上是不是不存在?
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP