no open ':encoding(gbk)', ':std'; 为什么没用作用

hiwork

use  open ':encoding(gbk)', ':std';
no  open ':encoding(gbk)', ':std';
下面的no open不会起作用,那位前辈指点下，谢了

sjdy521

贴详细代码

hiwork

回复 2# sjdy521

1. use utf8;
   
2. use Encode;
   
3. 
   
4. use open ':encoding(utf8)', ':std';
   
5. 
   
6. my @t;
   
7. no  open ':encoding(utf8)', ':std';
   
8. no open;
   
9. @t = decode('gbk', `dir d:\\tmp`);
   
10. 
    
11. 
    
12. print encode('gbk', "$t[0]");
    

复制代码

sjdy521

你这代码完全看不懂你想得到什么结果，use open 和Encode::decode Encode::encode完全没什么关系，