1# dajun 发表于 2008-07-25 15:42

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

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

[Copy to clipboard] [ - ]
CODE:
$perl -MCGI -e'print CGI::escapeHTML("学友"), "\n"'
学å‹


因为
sub escapeHTML {
...
         my $latin = uc $self->{'.charset'} eq 'ISO-8859-1' ||
                     uc $self->{'.charset'} eq 'WINDOWS-1252';
         if ($latin) {  # bug in some browsers
...
                $toencode =~ s{\x8b}{‹}gso;
...
         }