| Subject: | Encode Problem |
perl, v5.8.0 built for i386-linux-thread-multi
Linux testlinux 2.4.18-14 #1 Wed Sep 4 13:35:50 EDT 2002 i686 i686 i386 GNU/Linux
In the file Parser.pm, there is a function named CHar.
sub Char {
my $expat = shift;
my $text = shift;
$text =~ s/([\x80-\xff])/sprintf "#x%X;", ord $1/eg;
$text =~ s/([\t\n])/sprintf "#%d;", ord $1/eg;
print STDERR "@{$expat->{Context}} || $text\n";
}
This function can not deal with Multibyte charset, such as Chinese.