使字符串在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"; 

Answer 2

如果你想逃避字符串中的正則表達式所有的特殊字符，你可以一樣好使用RINDEX像

index($_, "$mystring_03") 

此返回字符串的索引您想要測試的字符串，如果找不到匹配，則返回-1。

Answer 3

的quotemeta功能做你所要求的。