CGI::escapeHTML导致部分字乱码?

dajun

mysql5 debian testing 默认安装, 没作任何改动
perl5.10 同上

数据库:
) ENGINE=MyISAM DEFAULT CHARSET=utf8;
SET character_set_client = @saved_cs_client;

apache2默认是iso8859-1

perl程序http header -charset=>utf8


症状是部分的中文乱码:  比如张学友: 张学

dajun

第一个问题解决了: $cgi->charset('utf-8');

1. 
   
2. 
   
3. $perl -MCGI -e'print CGI::escapeHTML("学友"), "\n"'
   
4. 学å‹
   
5. 
   
6. 
   
7. 因为
   
8. sub escapeHTML {
   
9. ...
   
10.          my $latin = uc $self->{'.charset'} eq 'ISO-8859-1' ||
    
11.                      uc $self->{'.charset'} eq 'WINDOWS-1252';
    
12.          if ($latin) {  # bug in some browsers
    
13. ...
    
14.                 $toencode =~ s{\x8b}{‹}gso;
    
15. ...
    
16.          }
    
17. 
    

复制代码

[ 本帖最后由 dajun 于 2008-7-25 15:44 编辑 ]