Chinaunix

标题: 指定perl脚本编码 [打印本页]

作者: lzj24 时间: 2016-05-19 17:26
标题: 指定perl脚本编码
想请教下各位，怎么在一个perl脚本中指定为特定的编码格式呢？例如，我的脚本如下：
#!/usr/bin/perl -w
use warnings;
use strict;
use utf8;
....
open(FILE,"command|"); #将command获得结果传到FILE中，然后打开文件进行正则匹配
while (<FILE>) {

if (/空闲队列数.*?(\d+)/) { $ONE_RECEUSED=30000 - $1;

}
}
.....
......
就是这个简单的正则，但是运行脚本，没有匹配出结果来。
初步猜测原因是，因为command获得结果是GB2312格式的，而我的脚本没有指定格式，应该是要在脚本中指定编码，要对应上编码才能进行匹配。

所以，请教下，怎么指定特定的编码格式？谢谢~
我试过这样写：
open(FILE,“:encoding(GB2312)”,"command|"); 不过还是没有匹配。

刚刚学perl，不是很懂，求指教~

作者: sunzhiguolu 时间: 2016-05-19 17:56
回复 1# lzj24
你的环境是啥?

作者: sunzhiguolu 时间: 2016-05-19 18:05
或者将你的示例数据贴出一部分, 并将要求说一下看看大家能不能帮到你.

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)