是否可以將編碼恢復到修改的STDIN？

Question

是否有可能恢復STDIN的原始編碼，哪種編碼先前被修改？

#!/usr/bin/env perl 
use warnings; 
use strict; 

binmode STDIN, ':raw'; 

# do something here 
# ... 
# ... 

# restore original STDIN encoding 
binmode STDIN, $old_encoding; 

Answer 1

不知道這是否會工作，但存在:pop pseudo-encoding說：

刪除最頂層。爲perl代碼提供了一種操作圖層堆棧的方法。應該被認爲是實驗性的。請注意：pop僅適用於真正的圖層，並且不會撤消僞層的效果，如：utf8。一個可能的使用的一個例子可能是：需要

open($fh,...) 
... 
binmode($fh,":encoding(...)"); # next chunk is encoded 
... 
binmode($fh,":pop");   # back to un-encoded 

更優雅（和更安全的）接口。