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

Блииин, ужас какой. Спасибо 8)

еще более корректно будет так писать

my ($sql, @bind) = $sqla->update(
  -table => ['-join', 'Foo', q|{fk_A=pk_A,B<'toto',C='123'}|, 'Bar'],
  -set => {foo => 1, bar => 2},
  -where => {buz => 3},
);

так будут прокидываться значения toto и 123

15:25пожаловаться #1

Vyacheslav Koval

еще более корректно будет так писать

my ($sql, @bind) = $sqla->update(
  -table => ['-join', 'Foo', q|{fk_A=pk_A,B<'toto',C='123'}|, 'Bar'],
  -set => {foo => 1, bar => 2},
  -where => {buz => 3},
);

так будут прокидываться значения toto и 123

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

15:32пожаловаться #2

Anton Petrusevich in Modern::Perl

Скажите, а при помощи SQL::Abstract или SQL::Abstract::More вообще можно построить update-запрос с join-ом внутри?

Ты не думал попробовать мой DBIx::Struct?

16:40пожаловаться #3

посоны, помнит кто на какой странице книжки Фридла он разбирает замену подстроки обёрнутую в парные символы?
сейчас идёт замена всех символов " на ```, а нужно добавить условие, чтобы не заменял внутри одинарных кавычек

а как сдвинуть индекс текущей позиции в регулярке до следующего символа ', если встретился символ '?

17:03пожаловаться #4

а как сдвинуть индекс текущей позиции в регулярке до следующего символа ', если встретился символ '?

Ты лучше задачу сформулируй

17:08пожаловаться #5

Anton Petrusevich

Ты не думал попробовать мой DBIx::Struct?

Да поздняк, нужна обратная совместимость с SQL::Abstract

17:09пожаловаться #6

Anton Petrusevich in Modern::Perl

Да поздняк, нужна обратная совместимость с SQL::Abstract

Ну так я ж на его основе то и делал

17:09пожаловаться #7

Anton Petrusevich

Ну так я ж на его основе то и делал

Окей, посмотрю 8) Пока ещё не мегатонны перелопачивать под него

17:10пожаловаться #8

Ты лучше задачу сформулируй

не делать репласе для текста в одинарных кавычках

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

не делать репласе для текста в одинарных кавычках

Хм, а можно пример входной строки и ожидаемый результат?

17:21пожаловаться #10

Хм, а можно пример входной строки и ожидаемый результат?

source:
"regexp_replace(\"fieldName\",'foo','{\"lat\":$1,\"lon\":$2}')"
expected:

"regexp_replace(`fieldName`,'foo','{\"lat\":$1,\"lon\":$2}')"

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

Блин, обратные кавычки явно похоронили что-то нужное

17:27пожаловаться #12

Но смысл вроде ясен

17:27пожаловаться #13

вот тут есть "fieldName" и "lat" c "lon"
нужно обернуть в наклонные апострофы только fieldName, а lat и lon не трогать

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

укоротил пример

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

Блин, весёлый пример. Это бы грамматикой на Raku распарсить 8))

17:42пожаловаться #16

да я уже в цикле строку посимвольно в новую сложил

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

но интересно таки регуляркой

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

Sergey Zhmylove in Modern::Perl

а как сдвинуть индекс текущей позиции в регулярке до следующего символа ', если встретился символ '?

Легко :р

18:35пожаловаться #19

(?=[^']*') ?