首页 > 代码库 > perl输出重定向

perl输出重定向

1 use utf8;
2 open A, ">&STDOUT";
3 open STDOUT, ">AA.txt";
4 print  STDOUT AB;
5 open STDOUT, ">&A";
6 binmode(STDOUT,":encoding(gbk)");
7 print "你好\n";

先把A重定向到STDOUT,

之后的STDOUT不代表标准输出了

到最后用完了再恢复

 

perl输出重定向