作者liyih ()
看板Perl
标题Re: [问题]编码问题
时间Tue Jun 3 08:27:01 2008
※ 引述《travellu (旅行)》之铭言：
: ※ 引述《dorwell (这真的是很神奇~~)》之铭言：
: 不好意思又来问了
: 请问
: "张惠妹"这三个字是如何转成"%Bli%B4f%A9f"？
: ^^^^^^^^^^^^
: 不晓得这是什麽格式
: 谢谢了
use Text::Iconv;
use Data::Dump;
my @lists = split(/\/+[\n\r]+/, `env iconv --list`);
#print "$_\n" foreach (@lists);
my $str = "张惠妹";
foreach (@lists) {
my $converter = Text::Iconv->new("UTF-8", $_);
my $converted = $converter->convert($str);
print "$_ =>", Data::Dump->dump($converted), "\n";
}
# perl enc.pl | grep A9
BIG-5 =>("Data::Dump", "\xB1i\xB4f\xA9f")
BIG-FIVE =>("Data::Dump", "\xB1i\xB4f\xA9f")
BIG5-HKSCS =>("Data::Dump", "\xB1i\xB4f\xA9f")
BIG5 =>("Data::Dump", "\xB1i\xB4f\xA9f")
BIG5HKSCS =>("Data::Dump", "\xB1i\xB4f\xA9f")
BIGFIVE =>("Data::Dump", "\xB1i\xB4f\xA9f")
CN-BIG5 =>("Data::Dump", "\xB1i\xB4f\xA9f")
CP950 =>("Data::Dump", "\xB1i\xB4f\xA9f")
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.114.64.130
1F：推 LiloHuang:其实是Big5 不过DataDump为何输出这样的格式才是重点 06/03 08:53
2F：推 LiloHuang:晚点考完试再来 trace 一下好了:P 06/03 08:53
3F：推 travellu:可以罗！谢谢 06/03 11:34