使字符串对Perl中的正则表达式安全

是的,使用 \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";

这个 quotemeta 函数按您的要求执行。

如果要为字符串中的正则表达式转义所有特殊字符,也可以使用类似rindex的

index($_, "$mystring_03")

这将返回要测试的字符串中字符串的索引,或者在找不到匹配项时返回-1。