使用PinYin模块出现乱码

cai800315

0.1版的cdecode函数

ttcn_cu

04年就开始玩了，果然是高手。。。

cai800315

0.1版的cdecode函数

sub cdecode {
        my $word = shift;
        my $enc = Encode::Guess->guess($word);
        my $encoding;
        unless (ref($enc)) {
                $encoding = 'cp936'; # use 'cp936' by default
        } else {
                $encoding = $enc->name;
        }
        $word = decode($encoding, $word);
        return $word;
}
0.11版的cdecode

sub cdecode {
        my $word = shift;
        my $encoding = detect($word);
        $encoding = 'cp936' if $encoding eq 'iso-8859-1'; # hard fix
        $word = decode($encoding, $word);
        return $word;
}
我现在只看到这个作更改了。