regex - 在 Perl 中使字符串对正则表达式安全

Question

我有一个字符串，我想在正则表达式中使用它，就像 m/$mystring_03/ 但是 $mystring 包含导致问题的 +s 和斜杠. Perl 中是否有一种简单的方法来修改 $mystring 以确保正确转义所有正则表达式通配符或其他特殊字符？ (比如所有的+都变成了\+)

Answer 1

是的，使用 \Q and \E escapes :

#!/usr/bin/perl

use strict;
use warnings;

my $text = "a+";

print
    $text =~ /^$text$/     ? "matched" : "didn't match", "\n",
    $text =~ /^\Q$text\E$/ ? "matched" : "didn't match", "\n";