SZ
my $Vendor = sub { for (@{$Data}) {return $_->{vendor}}};Size: a a a
2021 June 01
NP
всё, нашёл,
VG
VG
оно сработает только для первого в списке
SZ
Ты напиши, как заработает, чтобы мы тоже знали, как правильно такое делать ;)
2021 June 02
RH
my $db = Site::Model->connect(...);
$db->storage->debug(1);
Это будет тебе в консоль печатать сгенерированные SQL запросы - оч удобно для дебага
Я обычно пишу
$db->storage->debug(1);
$db->resultset('Universe')->delete_all;
$db->storage->debug(0);
Таким образоб дебажу определенный кусок запросов
$db->storage->debug(1);
Это будет тебе в консоль печатать сгенерированные SQL запросы - оч удобно для дебага
Я обычно пишу
$db->storage->debug(1);
$db->resultset('Universe')->delete_all;
$db->storage->debug(0);
Таким образоб дебажу определенный кусок запросов
W
DBIC_TRACE=1 perl your_code.pl
PV
очевидно ради удобства
VG
удобнее же просто херачить переменные, не тратя время на my
PV
а ещё удобно юзать say и не облажаться с длинной юникодной строки
VG
для этого достаточно
perl -Mutf8 -E 'say length "жопа"'а ты strict хочешь включать зачем-то...
4
PV
Так в том то и дело что не хочу я этот ваш strict включать)
VG
а, ну ладно)
E
ilmari вот такой вариант предлагал:
http://paste.scsys.co.uk/595405
http://paste.scsys.co.uk/595405
АК
Какая пробабилити, бань всех, ёбта! Иначе зачем ты тут вообще ))
VG
так ты покликай по ним - он и забанил
W
Всем похуй на твое голосовое сообщение. Иди в жопу.
SZ
Че-то реально в последние дни мешок с ботами не просто порвался, а разлетелся на куски