perl encode_utf8 decode_utf8
转载
[oracle@oadb ~]$ echo $LANG
en_US.UTF-8
[oracle@oadb ~]$ cat k1.pl
use Encode;
my $a="测试环境";
print "1111111\$a is $a\n";
$a=encode_utf8($a);
print "22222222\$a is $a\n";
$a=decode_utf8($a);
print "333333333\$a is $a\n";
[oracle@oadb ~]$ perl k1.pl
1111111$a is 测试环境
22222222$a is ???è????????
333333333$a is 测试环境
/****************************
[oracle@oadb ~]$ cat k2.pl
use Encode;
use utf8;
my $a="测试环境";
print "1111111\$a is $a\n";
# $a=encode_utf8($a);
#print "22222222\$a is $a\n";
# $a=decode_utf8($a);
#print "333333333\$a is $a\n";
[oracle@oadb ~]$ perl k2.pl
Wide character in print at k2.pl line 5.
1111111$a is 测试环境
[oracle@oadb ~]$ cat k2.pl
use Encode;
use utf8;
my $a="测试环境";
$a=encode_utf8($a);
print "22222222\$a is $a\n";
# $a=decode_utf8($a);
#print "333333333\$a is $a\n";
[oracle@oadb ~]$ perl k2.pl
22222222$a is 测试环境
[oracle@oadb ~]$
本文章为转载内容,我们尊重原作者对文章享有的著作权。如有内容错误或侵权问题,欢迎原作者联系我们进行内容更正或删除文章。