怎么把utf ->gb2312 and gb2312 -> utf

sc0698

怎么把utf ->;gb2312 and gb2312 ->; utf

两种编码格式的互相转换，

具体的实现方法！

apile

use Unicode::MapUTF8 qw(to_utf8 from_utf8 utf8_supported_charset);

# Convert a string in 'gb2312' to 'UTF8'
my $output = to_utf8({ -string =>; 'An example', -charset =>; 'gb2312' });


# Convert a string in 'UTF8' encoding to encoding 'gb2312'
my $other  = from_utf8({ -string =>; 'Other text', -charset =>; 'gb2312' });
=========================================
上面是參考CPAN 的說明..
試試看上面這個module，如果不行再用下面的方式設定新的charset
，注意Unicode::MapUTF8必須要上search.cpan.org抓下來..
Try It....如果是Perl 5.8以上，default有個encode的module..
怎麼用請自行研究..我沒用過..
=========================================
# List available character set encodings
my @character_sets = utf8_supported_charset;

# Add a character set alias
utf8_charset_alias({ 'ms-japanese' =>; 'sjis' });

# Convert between two arbitrary (but largely compatible) charset encodings
# (SJIS to EUC-JP)
my $utf8_string   = to_utf8({ -string =>;$sjis_string, -charset =>; 'sjis'});
my $euc_jp_string = from_utf8({ -string =>; $utf8_string, -charset =>; 'euc-jp' })

# Verify that a specific character set is supported
if (utf8_supported_charset('ISO-8859-1') {
     # Yes
}

sc0698

我听说台湾有位专家写了关于编码互相转换模块，不止到那里有？还有我看到perl5.8里面有个Encode模块，是不是可以用？

apile

http://www.cpan.org 上一定可以找得到..
perl 5.8以上支援Unicode...你可以用
Encode module 來轉碼..
但是我沒用過..所以請去 http://search.cpan.org
上找online document看看怎麼用..
或者直接在機器上輸入
perldoc  Encode
看online document...
基本上..我沒用過這個module...
不然就是我提過的那個module也可以用...

sc0698

看来我只好自己试了！

tsingson

可以看看 cpan.org 上唐宗汉的模块与相关文章哟

perl 5.8 就是唐宗汉译为中文的。

minghui

use XML::LibXML;
     encodeToUTF8

         $encodedstring = encodeToUTF8( $name_of_encoding, $sting_to_encode );

     decodeFromUTF8

         $decodedstring = decodeFromUTF8($name_of_encoding, $string_to_decode );

minghui

Perl 5 计算UTF-8长度似乎有问题！