[Moscow.pm] Созранить значение binmode

[Maxim Vuets]

2013/5/21 Иван Бессарабов <ivan на bessarabov.ru>:
> В коде пишу:
>
>     binmode STDOUT, ":utf8";
>     print $some_text;
>
> А потом хочу вернуть binmode STDOUT в то значение, которое у него было до
> установки :utf8. Как это можно сделать?

http://perldoc.perl.org/PerlIO.html#Querying-the-layers-of-filehandles

  $ perl -le 'binmode STDOUT, ":utf8"; print for PerlIO::get_layers(\*STDOUT)'
  unix
  perlio
  utf8

Ещё там же http://perldoc.perl.org/PerlIO.html#%3apop, но пишут, что с
":utf8" он не работает.

> Цель — чтобы `binmode STDOUT, ":utf8";`, который используется в одном методе
> никак не влиял на работу других методов.

Это очень плохо пахнет. По-моему, проблему нужно решать другим путём.

> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org
>