Re: [знатокам perl] русский в регулярных выражениях (bug#486877)

[Victor Wagner <vitus@wagner.pp.ru>]

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()));