Perl. Конвертация json в хеш. Юникод проблема.

Тут нормальный юникод

Что значит «нормальный»? Бывает ненормальный юникод?

Тут уже нет

А что там?

Так в том-то и дело, что:

say Dumper $content;

нужно вап, а не \x{432}\x{430}\x{43f}

Как такое сделать?

т.ь. как конвертироват юникодные данные во внутреннем представлении Perl в нормальный utf8?

нужно вап, а не \x{432}\x{430}\x{43f}

Ололо.

Как такое сделать?

Снять юникодный флаг со строки.

Что значит «нормальный utf8»? Ты так и не ответил.

человекочетабельные символы, а не \x{...}

Не подскажешь, как снять этот юникодный флаг со троки?

http://perldoc.perl.org/perlunicode.html

Нифига не работает сброс флага utf. После сериализации json в хеш как были крокозябры, так и остались.

my %object = %{JSON::XS->new->decode( decode("UTF-8", $jobj) )};

Кто-нибудь вообще конвертировал json в хеш в перле. Как проблему кодировок побеждали?

Нифига не работает сброс флага utf.

Сброс флага безусловно работает. Просто ты феерически глуп. Если бы почитал доки, на которые я ссылался, посмеялись бы вместе над твоей глупостью.

_utf8_off - работает только для строки. А у меня тут структура - хеш. Так что, да, сброс флага, безусловно, работает. Но мне от этого что?

Просто ты феерически глуп. Если бы почитал доки, на которые я ссылался, посмеялись бы вместе над твоей глупостью.

Если ты такой крутой, то давай, запости сюда код для конвертации json, считанного из файла, в хеш, с читабельным юникодом. Наверняка, для такого мастодонта перала как ты, это раз плюнуть.

с читабельным юникодом

Ололо.

Если ты такой крутой, то давай

Не, ты почитай perldoc perlunicode, показываю свои скилы только на работе - за деньги.

http://www.perlmonks.org/?node_id=759457

Фигассе. А я и не знал, что для json'а в перле с юникодом надо ещё делать каие-то телодвижения помимо описанных в мане.

Это фича Data::Dumper, забей.

#!/usr/bin/perl -w

use strict;
use JSON::XS;
use Encode ();

my $file = $ARGV[0] || 'file.json';

open ( my $fh, "<:raw", $file )
  or die "open $file: $!";

my $text = do { local $/; <$fh> };

close $fh;

my $p5 = JSON::XS->new->decode( $text );

# p5 internal unicode
# no warnings about Wide characters
printf "%s = %s [p5]\n", $_, $p5->{ $_ } for keys %$p5;

my $unicode = JSON::XS->new->decode( &Encode::decode_utf8($text) );
            # the same as JSON::XS->new->utf8(1)->decode( $text );

{
  binmode STDOUT, ":utf8";
  printf "%s = %s [utf8]\n", $_, $unicode->{ $_ } for keys %$unicode;
}

{
  use utf8;
  use Data::Dumper;
  print Dumper { "тест" => "Dumper плохой" };
}

Как ни крути, а Data::Dumper не проведешь. Если Dumper начнет выводить текст как есть, то это уже не будет дампов (такие дела, спроси у разрабов на RT, пусть фичей сделают//вернут все взад).

Спасибо, помогли.