Size: a a a

2020 September 18

SU

Someone Unknown 🇭🇷... in Modern::Perl
Да вот читаю, там действительно богато
Есть SET NAMES, есть SET CHARACTER SET, но это просто sugar для 4-х системных переменных, управляющих кодировкой клиента, сервера, соединения и результата соответственно. Да, похоже, тут и DBI ломать не надо
источник
2020 September 23

AG

Anatolia Gr in Modern::Perl
А чем можно генерить и парсить TSV с XS интерфейсом?
Посмотрел несколько вариантов, там не эскеёпится \n, \t, \\ и undef не превращается \N
источник
2020 September 24

A

Alexander in Modern::Perl
Someone Unknown 🇭🇷
Да вот читаю, там действительно богато
Есть SET NAMES, есть SET CHARACTER SET, но это просто sugar для 4-х системных переменных, управляющих кодировкой клиента, сервера, соединения и результата соответственно. Да, похоже, тут и DBI ломать не надо
Есть ещё init-command чтоб в dsn передать
источник

AK

Andrey Konovalov in Modern::Perl
Помните про такой DBI? А была ещё и MySQL когда-то... Во времена-то были :)
источник

AK

Andrey Konovalov in Modern::Perl
В общем, когда я делаю $dbh->clone слетает к чертям кошачьим mysql_enable_utf8 ! В частности из-за этого косяка пострадал DBIx::RetryOverDisconnects, который как раз делает тупо clone
источник

AK

Andrey Konovalov in Modern::Perl
Как это исправить? Или, может, уже где-то было пофикшено?
источник

AK

Andrey Konovalov in Modern::Perl
Делаем так - получаем кракозяблы. Что за жесть? :(
источник

AK

Andrey Konovalov in Modern::Perl
источник

SU

Someone Unknown 🇭🇷... in Modern::Perl
В смысле, он с оригинального $dbh слетает, даже не с клонированного? Жесть какая
источник

AK

Andrey Konovalov in Modern::Perl
С клонированного слетает
источник

AK

Andrey Konovalov in Modern::Perl
С оригинального нет конечно
источник

P

Pavel in Modern::Perl
Юзай dbix connector
источник

ДЛ

Дмитрий Лапчик... in Modern::Perl
помогите разобраться с epoll/read? пишу на низком уровне, потому что планирую переписать код позже  на cpp. проблема такая. приходит событие EPOLLIN от epoll_wait на чтение из дескриптора (stdout запущенного в фоне процесса)
my $pid_in = open(my $pin,  "-|", $$prgs[0]) or die "Can't start in: $!";

читаю из дескриптора по событию
$bytes = read ($pin, $data, $BLOCKSIZE);

но вызов блокируется в ожидании чего-то. собственно вопрос почему он останавливается и что ему нужно? может он хочет считать $BLOCKSIZE байт из потока, а их там не хватает?
источник

SU

Someone Unknown 🇭🇷... in Modern::Perl
Andrey Konovalov
С оригинального нет конечно
А в коде селект идёт с оригинального
источник

О

Оскар in Modern::Perl
Anatolia Gr
А чем можно генерить и парсить TSV с XS интерфейсом?
Посмотрел несколько вариантов, там не эскеёпится \n, \t, \\ и undef не превращается \N
Что прям Text::CSV_XS не делает как нужно?
источник

AK

Andrey Konovalov in Modern::Perl
Someone Unknown 🇭🇷
А в коде селект идёт с оригинального
Мда... Всё, я понял. Дело не в clone, дело в том, что без SET NAMES 'utf8' не работает всё-таки, mysql_enable_utf8 не даёт генеральского эффекта установки клиентской кодировки.
источник

P

Pavel in Modern::Perl
ну или кстати посмотри $dbh->{Callbacks}
источник

P

Pavel in Modern::Perl
Andrey Konovalov
Мда... Всё, я понял. Дело не в clone, дело в том, что без SET NAMES 'utf8' не работает всё-таки, mysql_enable_utf8 не даёт генеральского эффекта установки клиентской кодировки.
нет, должно работать
источник

AK

Andrey Konovalov in Modern::Perl
Pavel
нет, должно работать
Сама база - в  cp1251 :)
источник

AK

Andrey Konovalov in Modern::Perl
Так что кажись не должно
источник