请教PERL脚本

[djz-gd]

请问各位，我要在LINUX上写一个PERL脚本，目的是将包括中文的字符串转换成十六进制的字符（CP936编码）的，请问在PERL中如何写这段脚本呢？或者通过哪个函数能达到这样的效果？

[bones7456]

代码： 全选

$ echo -n "你好" | iconv -f utf8 -t cp936 | hex
0x00000000: c4 e3 ba c3             -                         ���

行不?

[eexpress]

是想要urlcode吗？

[djz-gd]

谢谢2位了。

我也不知道应该是什么CODE，文档上说是UNICODE的十六进制，我用PERL的UNPACK算出来的结果和实际好像不太一样。
我在网上看到一个例子，用“工作愉快!"算出来的十六进制是5DE54F5C61095FEBFF01，我在PERL里怎么换也不成这个。

我在WINDOWS上用LOVESTRING工具算出来是5DE54F5C61095FEBFF01，但是是UNIBIGEND的，不知道在PERL中有什么办法转呢？

[eexpress]

http://search.cpan.org/search?query=utf ... e&mode=all

[79hy]

这个转换你就要用到encode和decode的东西。

代码： 全选

use Encode;
#举例，比如你要转换为把一个字符串转换成gbk
my $string = "例子"；
my $octets = encode("gbk", $string);

这个模块对应的还有解码decode,具体你可以参考perldoc Encode;

[BigSnake.NET]

跟cpXXX,gbX无关

其实就是 unicode 编码

代码： 全选

$ python
Python 2.5.2 (r252:60911, May  7 2008, 15:21:12) 
[GCC 4.2.3 (Ubuntu 4.2.3-2ubuntu7)] on linux2
Type "help", "copyright", "credits" or "license" for more information.
>>> u'工作愉快!'
u'\u5de5\u4f5c\u6109\u5feb!'
>>>