Должен ли я появляться после каждого режима binmode?

Question

При использовании binmode, должен ли я поместить слои из, возможно, предыдущего используемого режима binmode?

#!/usr/bin/env perl 
use warnings; 
use 5.012; 
use autodie; 

open my $tty, '>:encoding(utf8)', '/dev/tty'; # ... 
close $tty; 
open $tty, '>:encoding(latin1)', '/dev/tty'; # ... 
close $tty; 
open $tty, '>:encoding(utf8)', '/dev/tty'; # ... 
close $tty; 
open $tty, '>:encoding(latin1)', '/dev/tty'; # ... 
close $tty; 

open $tty, '>:bytes', '/dev/tty'; 
say "@{[ PerlIO::get_layers($tty) ]}"; # unix perlio 
close $tty; 

say "----------------------------------------"; 

binmode STDOUT, ':encoding(utf8)'; # ... 
binmode STDOUT, ':encoding(latin1)'; # ... 
binmode STDOUT, ':encoding(utf8)'; # ... 
binmode STDOUT, ':encoding(latin1)'; # ... 

binmode STDOUT, ':bytes'; 
say "@{[ PerlIO::get_layers(*STDOUT) ]}"; # unix perlio encoding(utf8)/
# utf8 encoding(iso-8859-1) utf8 encoding(utf8) utf8 encoding(iso-8859-1) 


binmode STDOUT, ':pop:pop:pop:pop:bytes'; 
say "@{[ PerlIO::get_layers(*STDOUT) ]}"; # unix perlio 

.

#!/usr/bin/env perl 
use warnings; 
use 5.012; 
use autodie; 

open my $tty, '>:encoding(utf8)', '/dev/tty'; # ... 
close $tty; 

open $tty, '>:raw', '/dev/tty'; 
say "@{[ PerlIO::get_layers($tty) ]}"; # unix 
close $tty; 

say "----------------------------------------"; 

binmode STDOUT, ':encoding(utf8)'; # ... 

binmode STDOUT, ':raw'; 
say "@{[ PerlIO::get_layers(*STDOUT) ]}"; # unix perlio 

binmode STDOUT, ':pop:raw'; 
say "@{[ PerlIO::get_layers(*STDOUT) ]}"; # unix 

Answer 1

:pop требуется поп реальных слоев, такие как :encoding(...). Так что да, если вы хотите заменить реальный слой другим, тогда вам нужно будет :pop.

Но обратите внимание, что нажатие :raw фактически приводит к серии поп ... И :perlio автоматически вставляет :unix внизу. Таким образом, точное количество всплывающих окон действительно зависит от текущих слоев.

Как documentation говорит сам собой: нужен

Более изящный (и безопаснее) интерфейс.