цикла через регулярное выражение и заменить найден экземпляр

Question

я в настоящее время следующие:

# Pre-append "$" to variable names. 
# ['"](?:[^'"]*?(?:\\")*)*["'] Matches strings within double or single quotes. 
# (*SKIP)(*F) Causes the preceding pattern to fail. Tries to match the pattern on the right side of the | operator using the remaining strings. 

my $temp = $entire_line;  
while ($temp =~ /['"](?:[^'"]*?(?:\\")*)*["'](*SKIP)(*F)|([A-Za-z0-9_]+)/g){ 
    my $variable_name = $1;  
    $entire_line =~ s/$variable_name/\$$variable_name/;  
} 

Учитывая $entire_line = ((factor0 + factor1) * factor2) + factor0

Я хотел бы мой выход быть:

(($factor0 + $factor1) * $factor2) + $factor0

Однако, я м:

(($$factor0 + $factor1) * $factor2) + factor0

Я знаю, что это происходит потому, что он находит первый экземпляр factor0 дважды. Есть ли хороший способ предотвратить это и заменить найденный экземпляр?

Также мне нужно использовать переменную $temp?

Благодарим за помощь.

Answer 1

(\w+) 

Использование this.Replace с $$1.

См. Dmeo.

http://regex101.com/r/qC9cH4/17

Answer 2

Длинное регулярное выражение не находит первые factor0 дважды. Это простое регулярное выражение в подстановке. Чтобы это получилось, вам нужно убедиться, что он не находит те, которые начинаются с $.

$entire_line =~ s/([^\$])$variable_name/$1\$$variable_name/;  

---

Вы можете просто использовать $entire_line с этим решением и избавиться от $temp, но это очень сбивает с толку в целом. Если это производственный код, я предлагаю вам добавить комментарии к коду, а также к регулярному выражению, используя флаг /x. Your future self will thank you later.

---

Проверьте регулярное выражение здесь: http://regex101.com/r/vX0aJ9/1