Поиск и замена строки, содержащей специальные символы в файле, используя Perl

Question

Поиск и замена строки в файле с использованием Perl.У меня есть файл .txt.где мне нужно найти и заменить строку.у меня есть код работает нормально для строки, не содержащей специальных символов. но для строки, содержащей специальные символы, такие как (?, =, ::), не работает с этим кодом.

Постановка задачи image

Код, который я использую и ожидаемые результаты

Answer 1

Используйте встроенную функцию Perl quotemeta, чтобы экранировать все специальные символы в строке поиска.Смотри https://perldoc.perl.org/functions/quotemeta.html