分页： 1 / 1
请教PERL脚本
发表于 ： 2008-07-16 13:55
由 djz-gd
请问各位，我要在LINUX上写一个PERL脚本，目的是将包括中文的字符串转换成十六进制的字符（CP936编码）的，请问在PERL中如何写这段脚本呢？或者通过哪个函数能达到这样的效果？
发表于 ： 2008-07-16 13:57
由 bones7456
代码： 全选
$ echo -n "你好" | iconv -f utf8 -t cp936 | hex
0x00000000: c4 e3 ba c3 - ���
行不?
发表于 ： 2008-07-16 15:55
由 eexpress
是想要urlcode吗？
发表于 ： 2008-07-17 11:33
由 djz-gd
谢谢2位了。
我也不知道应该是什么CODE，文档上说是UNICODE的十六进制，我用PERL的UNPACK算出来的结果和实际好像不太一样。
我在网上看到一个例子，用“工作愉快!"算出来的十六进制是5DE54F5C61095FEBFF01，我在PERL里怎么换也不成这个。
我在WINDOWS上用LOVESTRING工具算出来是5DE54F5C61095FEBFF01，但是是UNIBIGEND的，不知道在PERL中有什么办法转呢？
发表于 ： 2008-07-17 11:50
由 eexpress
发表于 ： 2008-07-22 10:51
由 79hy
这个转换你就要用到encode和decode的东西。
代码： 全选
use Encode;
#举例，比如你要转换为把一个字符串转换成gbk
my $string = "例子"；
my $octets = encode("gbk", $string);
这个模块对应的还有解码decode,具体你可以参考perldoc Encode;
发表于 ： 2008-07-22 10:56
由 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!'
>>>