Perl JSON и UTF-8 - не могу правильно раскодировать данные / PHP, Perl, Python

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / Perl JSON и UTF-8 - не могу правильно раскодировать данные

3 сообщений из 3, страница 1 из 1

Perl JSON и UTF-8 - не могу правильно раскодировать данные

#39614056

Alibek B

Участник

Сообщения: 3 881

Рейтинг: 0 / 0

Есть hash с кириллицей, хранится в $data.
Сохраняю его в файл таким образом:

Код: php

1.
2.
3.
4.
5.
6.
7.

use utf8;
use Encode;
use JSON;
my $json = JSON->new->allow_nonref->allow_blessed->convert_blessed->relaxed;
open(JSON, ">:utf8", $file);
print JSON $json->encode($data);
close(JSON);

Сохраняется нормально, в файле корректное содержимое в UTF-8.

Затем мне эти данные нужно считать обратно.
Делаю так:

Код: php

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

use utf8;
use Encode;
use JSON;
my $json = JSON->new->allow_nonref->allow_blessed->convert_blessed->relaxed;
open(JSON, "<:utf8", $file);
read(JSON, my $buff, $size);
close(JSON);
$buff = $json->decode($buff);
$data->{$_} = ($buff->{$_}) foreach (keys %$buff);
print Dumper($data);

Все почти нормально, но на строке print выдает предупреждение "Wide character".

Если перед $json-decode делаю $json->utf8, тогда вообще не работает (JSON вылетает с ошибкой Wide character).
use feature qw(unicode_strings) не помогает.

Помогает сделать $buff = Encode::encode_utf8($buff) перед декодированием.
Но мне кажется, что тут что-то не так — я ведь данные уже считал в UTF-8 и если их вывести на юникодную консоль, то выводится правильно и без предупреждения "Wide character". Мне кажется, что я JSON как-то неправильно использую.
Или так и должно быть?

...

Рейтинг:

0 / 0

13.03.2018, 12:41

| Ответить | Цитировать | Написать

Perl JSON и UTF-8 - не могу правильно раскодировать данные

#39614500

scrip

Гость

Предупреждение "Wide character" в print говорит о том, что перл не знает кодировку STDOUT.

Нужно явно сказать об этом
либо при запуске скрипта (man perlrun):

Код: powershell

perl -C myscript.pl

либо в коде:

Код: php

use open ':std' => ':utf8';

JSON скорее всего вообще ни при чём.

...

Рейтинг:

0 / 0

14.03.2018, 04:49

| Ответить | Цитировать | Написать

Perl JSON и UTF-8 - не могу правильно раскодировать данные

#39614544

Alibek B

Участник

Сообщения: 3 881

Рейтинг: 0 / 0

У меня в скриптах всегда указывается binmode(STDOUT,':utf8').
Да и кириллицу (которая в UTF-8) в консоль выводится нормально.

...

Рейтинг:

0 / 0

14.03.2018, 09:34

| Ответить | Цитировать | Написать

3 сообщений из 3, страница 1 из 1

Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / Perl JSON и UTF-8 - не могу правильно раскодировать данные

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=23&msg=39614056&tid=1460343]:	0ms
get settings:	9ms
get forum list:	13ms
check forum access:	3ms
check topic access:	3ms
track hit:	35ms
get topic data:	15ms
get forum data:	2ms
get page messages:	41ms
get tp. blocked users:	1ms
others:	309ms

total:	431ms