Perl: прохождение поиска и замены регулярных выражений с использованием переменных
У меня есть сценарий Perl, который читает поиск регулярных выражений и заменить значения из файла INI.
Это работает нормально, пока я не попытаюсь использовать переменные захвата ($ 1 или \ 1). Они заменяются буквально на $ 1 или \ 1.
Любые идеи, как я могу заставить эту функцию захвата работать, передавая биты регулярных выражений через переменные? Пример кода (без использования INI-файла) ...
$test = "word1 word2 servername summary message";
$search = q((\S+)\s+(summary message));
$replace = q(GENERIC $4);
$test =~ s/$search/$replace/;
print $test;
Это приводит к ...
word1 word2 GENERIC $4
НЕ
word1 word2 GENERIC summary message
Спасибо