使用GD模块画圆遇到的中文乱码问题

yangchaohi

我的代码在原先的服务器里没有问题,,移到另一个服务器就出现了中文乱码...是不是新的服务器的模块安装出问题,,或者是服务器不支持原先TTF的文件呢?

yangchaohi

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. 
    
12. $TITLE = "面积:24398亩  种植比例："  if($TITLE eq "");
    
13. $TITLE = decode("gb2312",$TITLE);
    
14. $dat="小麦\n22.8%:22.8|水稻\n32.2%:33.2|棉花\n21%:21|油菜\n8%:8|其他\n5%:5" if($dat eq "");
    
15. $size=200 if($size eq "");
    
16. my @lines=split(/\|/,$dat);
    
17. my @datax=();  my @datay=();
    
18. foreach my $line(@lines){
    
19.         my($a,$b)=split(/:/,$line);
    
20.         push(@datax,decode("gb2312",$a));
    
21.         push(@datay,$b);
    
22. }
    
23. 
    
24. 
    
25. my   $graph = new GD::Graph::pie($size,$size);   
    
26. my   @data     =   (   
    
27.           \@datax,,   
    
28.           \@datay,   
    
29.   );   
    
30. 
    
31.   
    
32.    
    
33. $graph->set(     
    
34.           title => $TITLE,   
    
35.           '3d'=>1 ,
    
36.           dclrs => [ qw(lred lgreen lyellow lpurple cyan lorange lblue green pink) ]  
    
37. );   
    
38. $graph->set_title_font("/fonts/STZHONGS.TTF",11);
    
39. $graph->set_value_font("/fonts/STZHONGS.TTF",10);
    
40. $graph->set_label_font("/fonts/SURSONG.TTF",10);
    
41. my   $gd_image   =   $graph->plot(   \@data  );   
    
42. 
    
43. if(!$m){   
    
44. print   $cgi->header(-type=>"image/png",-expires=>"-1d");   
    
45. binmode   STDOUT;   
    
46. print   $gd_image->png;   
    
47. }

复制代码

yangchaohi

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

hfahe

/fonts/SURSONG.TTF
/fonts/STZHONGS.TTF
新服务器上是不是不存在？