PERL 太神奇了 同样一个变量，打印出来的结果居然不一样？？

ztj2247

1. 
   
2. $se= encode("gbk",decode("utf-8",$info->{$dom}));  #$info->{$dom}是 UTF8格式的字符串
   
3. print Dumper($se);
   
4. $update_sql = "update $db_table set se='$se' where some='$a'";
   
5. print Dumper($update_sql);
   
6. 
   
7. 结果：
   
8. $VAR1 = '泛需求';
   
9. $VAR1 = "update table_a set se='\x{b7}\x{ba}\x{d0}\x{e8}\x{c7}\x{f3}' where some='aaa.com'";
   

复制代码

求高手帮忙解决一下阿

ztj2247

仙子在吗 这是怎么回事呀

zhlong8

上下文呢？你只打印两个 scalar 怎么有四个输出

ztj2247

上下文呢？你只打印两个 scalar 怎么有四个输出
zhlong8 发表于 2011-02-16 19:10

    贴出上下文了 ，帮个忙阿 兄弟

socyno

这个应该是 Dumper 这个函数的问题吧

tmp

你是神马系统? 神马locale呢?

兰花仙子

求高手帮忙解决一下阿
ztj2247 发表于 2011-02-16 18:42

    decode("utf-8",$info->{$dom})

是utf8不是utf-8.

2gua

回复 7# 兰花仙子


    其实，标准写法应该是是utf-8，而非utf8。Perl是不走寻常路。:wink:

flw

回复  兰花仙子


    其实，标准写法应该是是utf-8，而非utf8。Perl是不走寻常路。
2gua 发表于 2011-02-16 22:31

因为 Perl 的 utf8 和 UTF-8（注意大小写，这才是你口中所说的“标准写法”）是有区别的。

拉里墙曾经为此写过一封信，详见 perldoc Encode

http://perldoc.perl.org/Encode.html#UTF-8-vs.-utf8-vs.-UTF8

2gua

回复 9# flw


    是UTF-8，嗯嗯嗯。