- 论坛徽章:
- 0
|
回复 2# q1208c
想修改成这样用着,以后了解了,再说。- use open ':encoding(utf8)', ':std';
- use Encode;
- my $path;
- my @t;
- {
- use open ':encoding(cp936)', ':std';
-
- @t = `dir d:\\tmp`;
- }
- print "@t";
复制代码 但还是有点字符无法识别:- cp936 "\xA8" does not map to Unicode at D:/workspace/deploy/en.pl line 8.
- cp936 "\xB7" does not map to Unicode at D:/workspace/deploy/en.pl line 8.
- cp936 "\x95" does not map to Unicode at D:/workspace/deploy/en.pl line 8.
- cp936 "\x88" does not map to Unicode at D:/workspace/deploy/en.pl line 8.
- cp936 "\xB6" does not map to Unicode at D:/workspace/deploy/en.pl line 8.
- cp936 "\x95" does not map to Unicode at D:/workspace/deploy/en.pl line 8.
- 驱动�\xA8 D 中的卷是 新加�\xB7
- 卷的序列号是 04A0-E370
-
- d:\tmp 的目�\x95
-
- 2014/05/29 10:59 <DIR> .
- 2014/05/29 10:59 <DIR> ..
-
- 54 个文�\xB6 3,872,446,456 字节
- 9 个目�\x95 153,571,979,264 可用字节
复制代码 |
|