Perl: Как вы вставляете числа после группировки переменных?

Question

У меня есть следующая замена в Perl one liner:

perl -pi.bak -e 's/(.*?\t.*?\t.*?\t.*?\t.*?\t.*?\t.*?\t.*?\t.*?\t)/$123424977\t/g if $. <= 200'

Проблема заключается в том, что я хочу вставить число 23424977 после текста, захваченного сгруппированным регулярным выражением (.*?\t.*?\t.*?\t.*?\t.*?\t.*?\t.*?\t.*?\t.*?\t).

Но Perl думает, что я имею в виду группу $ 123424977! Как мне сказать Perl, что я хочу группу $ 1 и вставить после этого текст 23424977?

Answer 1

Вы можете использовать фигурные скобки, чтобы однозначно разделить имя переменной & mdash; ${1} вместо $1:

perl -pi.bak -e 's/(.*?\t.*?\t.*?\t.*?\t.*?\t.*?\t.*?\t.*?\t.*?\t)/${1}23424977\t/g if $. <= 200'

Answer 2

Вы также можете переписать свое регулярное выражение более читабельным / элегантным способом:

perl -pi.bak -e 's/((?:.*?\t){9})/${1}23424977\t/g if $. <= 200'

Answer 3

Можно использовать флаг \K, чтобы полностью отказаться от требования $1:

s/(?:.*?\t){9}\K/23424977/g

Но не существует ли более перслистского способа сделать это с помощью автоматического разделения?Существует несколько способов сделать это, но некоторые удобнее других:

$ perl -F/\t/-api.bak -e 'splice@F,9,0,23423977 if $. < 200; $_ = join "\t", @F;'

Answer 4

используйте следующий синтаксис

${1}234567

Answer 5

Другой способ: вообще не использовать группу и сделать подстановку $&23424977\t ($& относится к полному тексту, совпадающему с левой частью оператора s///)

Answer 6

окружить с {}

perl -pi.bak -e 's/(.*?\t.*?\t.*?\t.*?\t.*?\t.*?\t.*?\t.*?\t.*?\t)/${1}23424977\t/g if $. <= 200'
                                                               _____^ ^