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输出重定向
免责声明！
本站转载的文章为个人学习借鉴使用，本站对版权不负任何法律责任。如果侵犯了您的隐私权益，请联系本站邮箱yoyou2525@163.com删除。