Re: [Moscow.pm] use encoding и манипуляции со строками

[Анатолий Гришаев]

24.04.2015 21:00, Анатолий Гришаев пишет:

3) BEGIN{ $INC{"encoding.pm"} = "Janky go home" } перед загрузкой твоего модуля.

Точнее так:

use strict;
use warnings;
use v5.12;
use utf8;
BEGIN{
    $INC{'encoding.pm'} = 1;
    *encoding::import = \&utf8::import;
}
тогда use encoding 'utf8';
будет работать как нужно.

v1 is utf-8 = 0
v2 is utf-8 = 0
v1 is utf-8 = 0
v2 is utf-8 = 0

Только надо проверить, что стороннему модулю плохо не стало.

Сам скрипт:

use strict;
use warnings;
use v5.12;
use utf8;

use encoding 'utf-8';

my $v1 = '';
my $v2 = '';

utf8::downgrade($v1);
utf8::downgrade($v2);

say 'v1 is utf-8 = ', utf8::is_utf8($v1) || 0;
say 'v2 is utf-8 = ', utf8::is_utf8($v2) || 0;

$v1 .= chr(hex($_)) for qw(22 D0);
$v2 .= chr(hex($_)) for qw(D0);

say 'v1 is utf-8 = ', utf8::is_utf8($v1) || 0;
say 'v2 is utf-8 = ', utf8::is_utf8($v2) || 0;

Окружение:

$ perl -v

This is perl 5, version 14, subversion 2 (v5.14.2) built for x86_64-linux-gnu-thread-multi

(with 57 registered patches, see perl -V for more detail)

$ perl -MEncode -E 'say Encode->VERSION'
2.73

--
Денис Ибаев

-- 
Moscow.pm mailing list
moscow-pm@pm.org | http://moscow.pm.org