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

Миграция web-приложения (perl 5.18->5.26). База PgSQL в кодировке UTF-8.
В базу попадают такие данные 3-Ð¿Ñ\u0080Ð¸Ð¼ÐµÑ\u0080, из базы через json {"name":"\u0424\u043e\u0440} и в браузере перекодируются в нормальный текст.
Template->new( добавил ENCODING => 'utf8'). Что еще посмотреть?

Версия DBD::Pg не поменялась? 3 версия работает с юникодом по-другому, в частности на utf-8 данные из БД взводится флаг utf8.

источник

14:16пожаловаться #6

Вертолетчик in Modern::Perl

allter

Да, помнится я принудительно отключал: pg_enable_utf8(0)

источник

14:39пожаловаться #7

Ivan Bessarabov in Modern::Perl

Уведел тут на stackoverflow смешную загадку про перл.
Откуда вообще в этом коде берется ошибка "isn't numeric" ?

источник

14:49пожаловаться #8

Ivan Bessarabov in Modern::Perl

@PerlBanjoBot

use List::Util qw(uniq);
my @arr = qw(a b c);
print join ", ", sort uniq @arr;

источник

14:49пожаловаться #9

PerlBanjoBot in Modern::Perl

Ivan Bessarabov

@PerlBanjoBot

use List::Util qw(uniq);
my @arr = qw(a b c);
print join ", ", sort uniq @arr;

Argument "b" isn't numeric in sort at script.pl line 12.
Argument "c" isn't numeric in sort at script.pl line 12.
a, b, c
https://PerlBanjo.com/e6593b8eda

источник

14:49пожаловаться #10

Vadim Goncharov in Modern::Perl

<=> по умолчанию?

источник

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

Ivan Bessarabov in Modern::Perl

Почему тогда этой ошибки нет если uniq убрать?

источник

14:53пожаловаться #12

Vadim Goncharov in Modern::Perl

не знаю, "uniq" is not exported by the List::Util module

источник

14:56пожаловаться #13

Ivan Bessarabov in Modern::Perl

старый перл

источник

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

Ivan Bessarabov in Modern::Perl

uniq есть в List::Util которая идет с перлом начиная с 5.26

источник

14:57пожаловаться #15

Roman in Modern::Perl

Посмотрите в List::MoreUtils. Многие модули переползают оттуда в Util.

источник

15:06пожаловаться #16

Vadim Goncharov in Modern::Perl

тогда Sort subroutine didn't return single value at

источник

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

Anton Petrusevich in Modern::Perl

Ivan Bessarabov

@PerlBanjoBot

use List::Util qw(uniq);
my @arr = qw(a b c);
print join ", ", sort uniq @arr;

If SUBNAME or BLOCK is omitted, sorts in standard string comparison order.

похоже, проблема таки в модуле

источник

15:17пожаловаться #18

Anton Petrusevich in Modern::Perl

Ivan Bessarabov

@PerlBanjoBot

use List::Util qw(uniq);
my @arr = qw(a b c);
print join ", ", sort uniq @arr;

проблема парсинга, видимо. сорт понимает юник как имя субрутины для сравнения, думаю

источник

15:23пожаловаться #19

Ivan Bessarabov in Modern::Perl

На stackoverflow пришли к такому же выводу =)

источник

15:24пожаловаться #20