Size: a a a

2020 November 16

VO

Vyacheslav Olkhovche... in Modern::Perl
да он сам умеет такое спам присылать как минимум
источник

VO

Vyacheslav Olkhovche... in Modern::Perl
вот у меня аккаунта нет, а спам -- есть
источник

МИ

Михаил Иванов... in Modern::Perl
Sergey Zhmylove
Как ты сделал линкедин по-русски?
Не припоминаю, чтобы что-то такое вообще делал
источник

VG

Vadim Goncharov in Modern::Perl
у меня не бейс в свежем

Subject: =?UTF-8?Q?Vadim,_=D0=92=D1=8B_=D0=B7?=
=?UTF-8?Q?=D0=BD=D0=B0=D0=BA=D0=BE=D0=BC=D1=8B_=D1=81_=D1=83=D1=87=D0=B0?=
=?UTF-8?Q?=D1=81=D1=82=D0=BD=D0=B8=D0=BA=D0=BE=D0=BC_Denis_Merkulov=3F?=
Date: Fri, 13 Nov 2020 16:01:23 +0000 (UTC)
источник

ع

عاصم بن حارث... in Modern::Perl
Vadim Goncharov
у меня не бейс в свежем

Subject: =?UTF-8?Q?Vadim,_=D0=92=D1=8B_=D0=B7?=
=?UTF-8?Q?=D0=BD=D0=B0=D0=BA=D0=BE=D0=BC=D1=8B_=D1=81_=D1=83=D1=87=D0=B0?=
=?UTF-8?Q?=D1=81=D1=82=D0=BD=D0=B8=D0=BA=D0=BE=D0=BC_Denis_Merkulov=3F?=
Date: Fri, 13 Nov 2020 16:01:23 +0000 (UTC)
по виду какое-то cp1251, а не utf
источник

VT

Vasily Terkin in Modern::Perl
utf-нее некуда, D0, D1
источник

AU

Alexey Ugnichev in Modern::Perl
Good ole quoted-printable?
источник
2020 November 17

МИ

Михаил Иванов... in Modern::Perl
Оно
источник
2020 November 18

DF

Denis F in Modern::Perl
@Casus_Improvisus а можно сделать чтобы DBIx::Struct::connect возвращал объект? Я тут решил растащить старый код на модули и как-то все внезапно сломалось :)
источник

SZ

Sergey Zhmylove in Modern::Perl
Denis F
@Casus_Improvisus а можно сделать чтобы DBIx::Struct::connect возвращал объект? Я тут решил растащить старый код на модули и как-то все внезапно сломалось :)
А что он тебе должен ответить? «можно, разрешаю»? :)
источник

DF

Denis F in Modern::Perl
Sergey Zhmylove
А что он тебе должен ответить? «можно, разрешаю»? :)
типа того
источник

NK

Nick Knutov Dobrohos... in Modern::Perl
Vadim Goncharov
Переслано от pragus
хех. У меня раз в пол года аналогичный вопрос про перл возникает..
источник

NK

Nick Knutov Dobrohos... in Modern::Perl
Подскажите, как с ком портами работать с перла, если я хочу каллбеки на приход байтиков, причем желательно по пять штук, а не по одному, и каллбеки были синхронными и блокирующимися-per-порт.

Контекст - несколько ком портов, которые мне что-то шлют, Device::SerialPort, я читаю по 5 байтов за раз - $port->read(5) и обрабатываю. Пока ком порт был один - весь код синхронный и блокирующийся - всё удобно. Как портов стало несколько - пришлось запускать по экземпляру скрипта на порт.

В реальности хочется обрабатывать все условно параллельно в рамках одного скрипта, но для каждого порта последовательно и для каждого порта не обрабатывать последующие приходящие байты до того, как обработаю текущие.

Я нашел пример с AE - https://alpha6.ru/blog/2017/05/28/async-serial-port/ - и вроде бы мне такой вариант подойдет, если сделать буфер, чтобы накапливать по 5 байт и если сделать какую-то очередь, и очередь обрабатывать в каком-то еще отдельном параллельном цикле. Нет ли решения попроще?
источник

VG

Vadim Goncharov in Modern::Perl
омг, несколько ком-портов в 2020
источник

NK

Nick Knutov Dobrohos... in Modern::Perl
ну, одна интересная поделка
источник

DF

Denis F in Modern::Perl
Nick Knutov Dobrohost.ru
Подскажите, как с ком портами работать с перла, если я хочу каллбеки на приход байтиков, причем желательно по пять штук, а не по одному, и каллбеки были синхронными и блокирующимися-per-порт.

Контекст - несколько ком портов, которые мне что-то шлют, Device::SerialPort, я читаю по 5 байтов за раз - $port->read(5) и обрабатываю. Пока ком порт был один - весь код синхронный и блокирующийся - всё удобно. Как портов стало несколько - пришлось запускать по экземпляру скрипта на порт.

В реальности хочется обрабатывать все условно параллельно в рамках одного скрипта, но для каждого порта последовательно и для каждого порта не обрабатывать последующие приходящие байты до того, как обработаю текущие.

Я нашел пример с AE - https://alpha6.ru/blog/2017/05/28/async-serial-port/ - и вроде бы мне такой вариант подойдет, если сделать буфер, чтобы накапливать по 5 байт и если сделать какую-то очередь, и очередь обрабатывать в каком-то еще отдельном параллельном цикле. Нет ли решения попроще?
источник

VG

Vadim Goncharov in Modern::Perl
Nick Knutov Dobrohost.ru
Подскажите, как с ком портами работать с перла, если я хочу каллбеки на приход байтиков, причем желательно по пять штук, а не по одному, и каллбеки были синхронными и блокирующимися-per-порт.

Контекст - несколько ком портов, которые мне что-то шлют, Device::SerialPort, я читаю по 5 байтов за раз - $port->read(5) и обрабатываю. Пока ком порт был один - весь код синхронный и блокирующийся - всё удобно. Как портов стало несколько - пришлось запускать по экземпляру скрипта на порт.

В реальности хочется обрабатывать все условно параллельно в рамках одного скрипта, но для каждого порта последовательно и для каждого порта не обрабатывать последующие приходящие байты до того, как обработаю текущие.

Я нашел пример с AE - https://alpha6.ru/blog/2017/05/28/async-serial-port/ - и вроде бы мне такой вариант подойдет, если сделать буфер, чтобы накапливать по 5 байт и если сделать какую-то очередь, и очередь обрабатывать в каком-то еще отдельном параллельном цикле. Нет ли решения попроще?
посмотрел пример, а что там сложного? обычный хэндл
источник

NK

Nick Knutov Dobrohos... in Modern::Perl
Vadim Goncharov
посмотрел пример, а что там сложного? обычный хэндл
там все просто. Сложно - это городить буферы и очереди поверх
источник

DF

Denis F in Modern::Perl
там для работы обычного AE::Handle хватит. Там заморочки начинаются когда нужны нестандартные скорости порта
источник

VG

Vadim Goncharov in Modern::Perl
Nick Knutov Dobrohost.ru
там все просто. Сложно - это городить буферы и очереди поверх
а в доку к хэндлу заглянуть? там уже есть методы для этого
источник