awk pcre, group by

[Mayor]

нехватает реализации в гавк:
pcre: backreferences, minimal match

что проще:
- поискать другую авк
- попытаться присоединить библиотеку pcre
- повторить и перейти на перл?

[RXL]

Перейти на Perl.

Я сперва awk изучил. Когда на нем пришлось писать не простые фильтры, а более сложные парсеры для большого объема текста, то он показал малую гибкость языка и очень медленную работу. Переписав все это на perl (я его тогда только начал изучать) я получил увеличение сколости раз в 20 и несравненно более гибкий и удобный инструмент.

Для автоматизации перехода в комплекте с perl идет утилита a2pl - конвертор из awk в perl. 100% работоспособности он не даст, но простые фильтры легко переводит.

[Mayor]

пока времени на изучение перла нету

как на авк реализовать агрегатную функцию по регулярному выражению?

например есть таблица вида:

Код:

20070113\t12
20070216\t60
20070217\t70
20070310\t80
и тд

нада сложить 2 поле по месяцам:
01 = 12
02 = 130
03 = 80
и тд

[RXL]

Извиняюсь за посыл на RTFM...
Посмотри в мане на awk блоки BEGIN и END, массивы, ф-ии (substr).

Если год может меняться, то в "месяц" стоит включить первые шесть цифр.

[Mayor]

Извиняюсь за посыл на RTFM...
Посмотри в мане на awk блоки BEGIN и END, массивы, ф-ии (substr).

Если год может меняться, то в "месяц" стоит включить первые шесть цифр.

не год просто для примера, мне нада как-то приравнять переменую к значению /lsdjkf(sldkf)sdflk/    \1   -- полученному внутри скобок

потом то будет элементарно выполнить агрегатную функцию над ассоцированным списком

[RXL]

Код: (awk)

/^[0-9]{6}[ \t][0-9]+/ { print substr($1, 5, 2) " = " $2; }

Для работы квантификатора {} нужно запускать awk параметром --posix.

[Mayor]

Код: (awk)

/^[0-9]{6}[ \t][0-9]+/ { print substr($1, 5, 2) " = " $2; }

Для работы квантификатора {} нужно запускать awk параметром --posix.

а как сделать в actions  regexp backreference?

[RXL]

Похоже, что awk их не поддерживает - в мане нет упоминаний - у него это просто группировка.
Для таких простых вещей вполне подойдет sed.

[Mayor]

Код:

BEGIN { FS = "\t" }

{
  month = substr($1, 5, 2) # substr($1, 1, 6) если надо учесть и год
  sum[month] += $2
}

END {
  OFS = "\t"
  for (month in sum)
    print month, sum[month] | "sort"
}