Как мне избежать специальных символов в строке, которую я интерполирую в регулярное выражение Perl?

Question

У меня есть строка, которая может содержать специальные символы, такие как: $, (, @, #, и т. Д. Мне нужно иметь возможность выполнять регулярные выражения для этой строки.

Прямо сейчас, если в моей строке есть какой-либо из этих символов, регулярное выражение кажется нарушенным, поскольку это зарезервированные символы для регулярного выражения.

Кто-нибудь знает хорошую подпрограмму, которая будет прекрасно использовать любой из этих символов для меня, чтобы потом я мог сделать что-то вроде:

 $p_id =~ /^$key/

Answer 1

$p_id =~ /^\Q$key\E/;

Answer 2

Судя по твоему описанию, это звучит так, будто у тебя это задом наперед. Вам не нужно экранировать символы в строке, с которой вы подходите ($ p_id), вам нужно экранировать строку соответствия '^ $ key'.

Дано:

$p_id = '$key$^%*&#@^&%$blah!!';

Использование:

$p_id =~ /^\$key/;

или

$p_id =~ /^\Q$key\E/;

Пара \ Q, \ E рассматривает все промежуточное как буквальное. Другими словами, вы не хотите искать содержимое переменной $ key, но фактическую строку '$ key'. Первый пример просто избегает $.