CGI::escapeHTML導(dǎo)致部分字亂碼?

dajun

mysql5 debian testing 默認(rèn)安裝, 沒作任何改動
perl5.10 同上

數(shù)據(jù)庫:
) ENGINE=MyISAM DEFAULT CHARSET=utf8;
SET character_set_client = @saved_cs_client;

apache2默認(rèn)是iso8859-1

perl程序http header -charset=>utf8


癥狀是部分的中文亂碼:  比如張學(xué)友: 張學(xué)

dajun

第一個問題解決了: $cgi->charset('utf-8');

1. 
   
2. 
   
3. $perl -MCGI -e'print CGI::escapeHTML("學(xué)友"), "\n"'
   
4. 學(xué)å‹
   
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. 
    

復(fù)制代碼

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