2013/5/21 Иван Бессарабов <[email protected]>: > В коде пишу: > > 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 > [email protected] | http://moscow.pm.org > -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
