Как использовать regex с AWK для строковой замены?

В отличие от примерно каждого инструмента, который обеспечивает regexp замены, awk не позволяет обратные ссылки такой как \1 в тексте замены. Awk GNU предоставляет доступ к подобранным группам, если Вы используете match функция, но не с ~ или sub или gsub.

Отметьте также это даже если \1 поддерживался, Ваш отрывок добавит строку +11, не выполняют числовое вычисление. Кроме того, Ваш regexp не совершенно правилен, Вы соответствуете вещам как "42"" и нет "#42".

Вот awk решение (предупреждение, непротестированное). Это только выполняет единственную замену на строку.

awk '
  match($0, /"#[0-9]+"/) {
    n = substr($0, RSTART+2, RLENGTH-3) + 11;
    $0 = substr($0, 1, RSTART+1) n substr($0, RSTART+RLENGTH-1)
  }
  1 {print}'

Это было бы более просто в Perl.

perl -pe 's/(?<="#)[0-9]+(?=")/$1+11/e'

awk может сделать это, но это не является прямым, даже с помощью backreferencing.
GNU awk имеет (частичный) backreferecing, в форме gensub.

Экземпляры 123" временно перенесены в \x01 и \x02 отметить их, как не изменено (для sub(). co

Или Вы могли просто ступить через кандидатов изменения цикла, когда Вы идете, в этом случае, backreferencing и "скобки" не необходимы; но отслеживание индекса символа необходимо.

awk '{$0=gensub(/([0-9]+)\"/, "\x01\\1\"\x02", "g", $0 )
      while ( match($0, /\x01[0-9]+\"\x02/) ) {
        temp=substr( $0, RSTART, RLENGTH )
        numb=substr( temp, 2, RLENGTH-3 ) + 11
        sub( /\x01[0-9]+\"\x02/, numb "\"" ) 
      } print }'

Вот иначе, с помощью gensub и массив split и \x01 как разделитель полей (для разделения).. \x02 отмечает элемент массива как кандидата на арифметическое дополнение.

awk 'BEGIN{ ORS="" } {
     $0=gensub(/([0-9]+)\"/, "\x01\x02\\1\x01\"", "g", $0 )
     split( $0, a, "\x01" )
     for (i=0; i<length(a); i++) { 
       if( substr(a[i],1,1)=="\x02" ) { a[i]=substr(a[i],2) + 11 }
       print a[i]
     } print "\n" }'

Поскольку решения в (g) awk кажутся довольно сложными, я хотел добавить альтернативное решение в Perl:

perl -wpe 's/\d+(?=")/$&+11/eg' < in.txt > out.txt

Объяснение:

• Опция -w включает предупреждения (которые будут предупреждать вас возможных нежелательных эффектов).
• Опция -p подразумевает цикл вокруг кода, который работает аналогично sed или awk, автоматически сохраняя каждую строку ввода в переменной по умолчанию $ _ .
• Опция -e сообщает Perl, что программный код следует в командной строке, а не в файле сценария.
• Код представляет собой замену регулярного выражения ( s /.../.../ ) на $ _ , где последовательность цифр, если за ней следует ", будет заменена последовательностью, интерпретируемой как число в добавлении плюс 11.
• Утверждение положительного упреждающего просмотра нулевой ширины (? = Шаблон) ищет ", не принимая его в соответствие, поэтому нам не нужно повторять его при замене. Тогда переменная MATCH $ & в замене будет содержать только число.
• Модификатор / e регулярного выражения указывает perl «выполнить» замену как код, а не принимать ее как строку.
• Модификатор / g делает замену «глобальной», повторяя ее при каждом совпадении в строке.

Переменная MATCH $ & , к сожалению, ухудшит производительность кода в версиях Perl до 5.20.Более быстрое (и не намного более сложное) решение могло бы использовать вместо этого группировку и обратную ссылку $ 1 :

perl -wpe 's/(\d+)?="/$1+11/eg' < in.txt > out.txt

И если прогнозируемое утверждение выглядит слишком запутанным, вы также можете явно заменить кавычки:

perl -wpe 's/(\d+)"/$1+11 . q{"}/eg' < in.txt > out.txt