求教，perl 中文转utf8的问题

wbaby2000

UID: 42191
帖子: 98
积分: 225
在线时间: 13 小时

1^# wbaby2000 发表于 2008-07-28 19:10

求教，perl 中文转utf8的问题

求教，perl 中文转utf8的问题
就想把一个中文转成utf8编码，输出在屏幕上。
#!/usr/bin/perl
my $str="测试";
use Encode;
$a=decode("utf8",$str);
$b=encode("gb2312",$a);
print "$b\n";
但输出的是乱码。是我压根就错了，请各位指点一下。谢谢
我用的是perl 5.8.0

poseidon

UID: 40229
帖子: 84
积分: 193
在线时间: 9 小时

2^# poseidon 发表于 2008-08-25 18:03

你没错，但要保证首先脚本.
你没错，但要保证首先脚本编码必须是utf8，然后屏幕编码是gb2312。

szbinlee

UID: 595
帖子: 1
积分: 2
在线时间: 10 分钟

3^# szbinlee 发表于 2008-08-26 11:37

#!/usr/bin/perl--my $s.
#!/usr/bin/perl
my $str="测试";
use Encode;
$a=decode("gb2312",$str);#decode 是将其中的编码形式的文字转换为utf8数据，
$b=encode("gb2312",$a);#encode 是将utf8转换为编码形式文字。
print "$a\n";
print "$b\n";