Телеграмм чат группы modernperl страница 8939

Size: a a a

Modern::Perl

461 membersпожаловаться на группу

2021 June 24

Sergey Zhmylove in Modern::Perl

Или 6376ххх и 6375ххх ничем не отличаются?

источник

11:21пожаловаться #1

Askar Timirgazin in Modern::Perl

Доброе утро, кажется, я воткнулся в Unicode bug, это ведь оно?

perl -E 'binmode STDOUT,q(:utf8); my $v = eval(qq( use utf8; qq(\x{ab}\x{41e}) )); say $v. q( ). (utf8::is_utf8($v) ? 1 : 0)'
«О 1
perl -E 'binmode STDOUT,q(:utf8); my $v = eval(qq( use utf8; qq(\x{ab}) )); say $v. q( ). (utf8::is_utf8($v) ? 1 : 0)'
« 0

Есть ли способ как-то настроить perl, чтобы флажок utf8 поднимался и для строк, состоящих (например) только из кавычек-ёлочек и латиницы?

источник

11:21пожаловаться #2

Askar Timirgazin in Modern::Perl

Ну то есть строки сначала сериализуются Data::Dumper, хранятся в БД, а потом их надо правильно десериализовать.

источник

11:22пожаловаться #3

ВВ

Виолетта Вета... in Modern::Perl

могла ошибиться в С# на тот момент, я его первый раз вчера в глаза увидела ) сейчас в онлайн компиляторе все сходится, как надо

источник

11:22пожаловаться #4

Sergey Zhmylove in Modern::Perl

А тебе точно это нужно? is_utf8 это не что-то типа looks_like_utf8

источник

11:22пожаловаться #5

Sergey in Modern::Perl

И еще кстати протобуф. Но они все требуют схемы - а по вашему описанию вы не хотите ее делать. Без схемы мне это выглядит безнадежным.

источник

11:23пожаловаться #6

Sergey Zhmylove in Modern::Perl

Лол, понятно. Ну ты тогда смотри чтобы через пару дней у тебя опять всё не развалилось

источник

11:23пожаловаться #7

ВВ

Виолетта Вета... in Modern::Perl

да вроде проверила уже, думаю, не развалится. Да и Вадим выше нашел подтверждение этой константы.

источник

11:24пожаловаться #8

ВВ

Виолетта Вета... in Modern::Perl

редкостная, конечно, хрень так делать в АПИ (

источник

11:25пожаловаться #9

Askar Timirgazin in Modern::Perl

мне это нужно, потому что иначе начинает происходит двойное UTF-8 кодирование в выводе, или фокусы типа "в БД сохранилось, но повторно сохраняться не будет с ошибкой invalid byte sequence for encoding "UTF8": 0xab"

источник

11:26пожаловаться #10

Sergey in Modern::Perl

У строчек из кавычек,елочек,латиницы одинаковое представление в утф8 и латин1. Они не могут приводить к тому, что вы описываете. У вас либо баг не в этом, либо вы исказили ошибку при пересказе.

источник

11:34пожаловаться #11

Ivan Bessarabov in Modern::Perl

«»

источник

11:34пожаловаться #12

Sergey in Modern::Perl

Ну а на такой и флаг будет

источник

11:35пожаловаться #13

Sergey Zhmylove in Modern::Perl

Я не понимаю, что тебе не нравится

источник

11:37пожаловаться #14

Sergey Zhmylove in Modern::Perl

@PerlBanjoBot

$ perl -E 'binmode STDOUT,q(:utf8); my $v = eval(qq( use utf8; qq(\x{ab}) )); say $v. q( ). (utf8::is_utf8($v) ? 1 : 0)' |od -tx1 -An

источник

11:38пожаловаться #15

PerlBanjoBot in Modern::Perl

c2 ab 20 30 0a
https://PerlBanjo.com/4de8e4e498

источник

11:38пожаловаться #16

Sergey Zhmylove in Modern::Perl

@PerlBanjoBot

$ perl -E 'binmode STDOUT,q(:utf8); my $v = eval(qq( use utf8; qq(\x{ab}\x{41e}) )); say $v. q( ). (utf8::is_utf8($v) ? 1 : 0)' |od -tx1 -An

источник

11:38пожаловаться #17

PerlBanjoBot in Modern::Perl

c2 ab d0 9e 20 31 0a
https://PerlBanjo.com/a34359471f

источник

11:38пожаловаться #18

Sergey Zhmylove in Modern::Perl

Что не так если это сунуть в базу?

источник

11:38пожаловаться #19

Sergey Zhmylove in Modern::Perl

ЗЫ если конечно упустить тот факт, что часть модулей для работы с бд делают внутри энкодинг/декодинг, часть -- не делают. Это просто болезнь перла

источник

11:39пожаловаться #20