什麼是PHP的preg_quote函數的perl等價物？

Question

我有一個字符串，我想匹配perl正則表達式模式，但其中的字符可能需要逃脫。在PHP中，執行此操作的函數是preg_quote。 perl中的等價物是什麼？

Answer 1

如果要按字面順序匹配變量的內容，請將其包含在\Q...\E引號中，或使用quotemeta函數。這兩項工作：

use feature 'say'; 
my $metachars = "1+2"; 
my $escaped_metachars = quotemeta $metachars; 

local $_ = "1112, 1+2"; 

say "\\Q...\\E: ", /(\Q$metachars\E)/; 
say "quotemeta: ", /($escaped_metachars)/; 
say "no escaping: ", /($metachars)/; 

輸出：

\Q...\E: 1+2 
quotemeta: 1+2 
no escaping: 1112 

Answer 2

您可能需要quotemeta函數。