Re:[PerlChina] 请教一个Encode的问题

print encode("utf8", $str);

=> aaa你好bbb

 >#!/usr/bin/perl > >use Encode qw/encode decode/; > >my $str = "aaa\x{4f60}\x{597d}bbb";  #这大概是个合法的utf8字符串吧? >print $str, "\n"; > >print encode('gb2312', decode('utf-8', $str)), "\n"; > >D:\>perl decode.pl >Wide character in print at decode.pl line 6. >aaa浣�ソbbb >Cannot decode string with wide characters at C:/strawberry/perl/lib/Encode.pm li >ne 174. > > >这是怎么回事呢? > >--  >您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。 >要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。 >要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。 >若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。 > 

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。