VG
$ echo $PATH
/home/vadim/perl5/bin:/sbin:/bin:/usr/sbin:/usr/bin:/usr/local/sbin:/usr/local/bin:/home/vadim/bin
$ uname
FreeBSD
в хоме - это от local::lib
в хоме - это от local::lib
Size: a a a
2020 September 14
в хоме - это от local::lib
VG
nextstep умер
AU
Но дело его живёт ©
2020 September 16
AK
посоны, помнит кто на какой странице книжки Фридла он разбирает замену подстроки обёрнутую в парные символы?
сейчас идёт замена всех символов
сейчас идёт замена всех символов
" на ```, а нужно добавить условие, чтобы не заменял внутри одинарных кавычекAK
там ещё про чётное/нечётное количество что-то было
AK
нашёл: 269 страница
SZ
SZ
Кто-то ещё это читает
AK
но это же классика
AK
кто-то читает перед сном "Преступление и наказание", а кто-то Фридла
SZ
кто-то читает перед сном "Преступление и наказание", а кто-то Фридла
Фу, как это низко
SZ
посоны, помнит кто на какой странице книжки Фридла он разбирает замену подстроки обёрнутую в парные символы?
сейчас идёт замена всех символов
сейчас идёт замена всех символов
" на ```, а нужно добавить условие, чтобы не заменял внутри одинарных кавычекА в общем-то достаточно просто при замене проверить, что перед позицией кавычки четное число одинарных кавычек :)
SU
Вечер в хату, часик в радость
SU
Скажите, а при помощи SQL::Abstract или SQL::Abstract::More вообще можно построить update-запрос с join-ом внутри?
VK
Скажите, а при помощи SQL::Abstract или SQL::Abstract::More вообще можно построить update-запрос с join-ом внутри?
Привет! Насколько я понимаю, нужно join передавать в параметр -table в методе update
SU
Привет! Насколько я понимаю, нужно join передавать в параметр -table в методе update
Да вот я пытаюсь, получается какая-то хрень
VK
Да вот я пытаюсь, получается какая-то хрень
my $join = $sqla->join('Foo', q|{fk_A=pk_A,B<'toto',C='123'}|, 'Bar');
my ($sql, @bind) = $sqla->update(
-table => $join->{sql},
-set => {foo => 1, bar => 2},
-where => {buz => 3},
);SU
my $join = $sqla->join('Foo', q|{fk_A=pk_A,B<'toto',C='123'}|, 'Bar');
my ($sql, @bind) = $sqla->update(
-table => $join->{sql},
-set => {foo => 1, bar => 2},
-where => {buz => 3},
);Блииин, ужас какой. Спасибо 8)