Доброе утро! Возникла проблема с подстановкой. Операнд замены интерпретируется только один раз. 

Листинг 1

Получаю вместо 15148.02       $1$2.$3

Пока нашел только такое решение. 

Листинг 2


Можно как нибудь явно указывать что необходима еще дополнительная интерпретация? И решить данную задачу без внесении изменений в шаблон $m2 Листинг1?

P.S решение такого вида $s =~ s/$m1/$1$2.$3/ не подходит т.к шаблоны загружаются из внешнего файла.

модификатор g?
хотя похоже вы не об этом..

Это сообщение отредактировал(а) FooBar - 5.5.2008, 06:46

можно.
Для того что бы ссылаться на строки, захваченые в () ВНУТРИ регулярного выражения нужно использовать не $1 $2 а \1 \2

пример



результат




в вашем случае:

sir_nuf_nuf, если иметь в виду поисковую часть оператора s///, то Вы совершенно правы. А в заменяющей части этого оператора (а также вне регулярного выражения) использовать нотацию \1 \2 нет смысла. Оно там лишь для совместимости с sed и пр. С use warnings перл даже поругается в том смысле, что $1 лучше, чем \1. К тому же, замена $1 на \1, насколько я понимаю, никак не решает проблему, поставленную топикстартером. Кроме того, такая замена противоречит условию задачи (не трогать $m2).

Это сообщение отредактировал(а) amg - 5.5.2008, 08:42

FooBar
Точно модификатор /g здесь не в теме

sir_nuf_nuf
Замена $1 на \1 не решает проблему. Ничего не меняется. 

amg
Спасибо работает.

tolkien, не уверен, но мне кажется, что интерполяция /eeнеобходима и достаточна. 

Другой вопрос - автоматическое определение вида заменяющей части. НапримерВозможно, есть еще варианты. Вопрос интересный и актуальный. Если у Вас или других форумчан есть универсальное решение, буду благодарен за его публикацию. И сам подумаю.

amg, мне кажется, будет зависеть от того, чего хочет человек, пишущий заменяющее выражение.
Написав ".", он хочет вывести символ "точка" или конкатенировать строки?
А написав "+", он хочет сложить числа или вывести знак "плюс"?
Получается, что избрав "вывод символов как они есть" - нам нужно сначала интерполировать переменные, и уж потом делать все остальное - и поэтому принудительно делаем двойную вложенность кавычек - с помощью qq("выражение").
Если же хотим "выполнять" символы - то достаточно просто дважды выполнить заменяющую часть.

P.S. Спасибо за интересное замечание, раньше я об этом не задумывался 

А откуда этот шаблон подстановок перётся?
Есть два варианта: при вводе шаблона использовать флаг типа вычислять чи ни или разработка отдельного синтаксиса, скорее всего, совпадающего с перл для евала, который описывает действия при подстановке.

Да, конечно. И именно поэтому мой вопрос на самом деле не имеет смысла и аннулируется.

У меня опять вопрос по интерполяции. Только уже в операторе поиска. Условия как прежде из внешнего файла считываются шаблоны. Только в этом случаи ненужно ничего заменять нужно только выдернуть данные. Решение нашел в гугле. Можно ли выполнить итерполяцию в этой строчке $res = eval "\"$m2\""; ,без использования eval?

Листинг3