On 2010.11.06 at 14:07:48 +0300, Dmitry E. Oboukhov wrote: > > VW> Надо до первого print добавить binmode STDOUT,":utf8"; > > вместе с директивой use utf8; хорошо применять директиву > use open qw(:std :utf8);
На самом деле надо use open qw(:std :locale); Тогда только полученное из langinfo нужно будет перекодировать с использованием из нее же полученной кодировки. my $encoding = langinfo(CODESET()); my $yesexpr = decode($codeset,langinfo(YESEXPR())); -- To UNSUBSCRIBE, email to debian-russian-requ...@lists.debian.org with a subject of "unsubscribe". Trouble? Contact listmas...@lists.debian.org Archive: http://lists.debian.org/20101106150231.ga23...@wagner.pp.ru