忽视查找特殊字符和替换的perl

Question

的命令我使用这个命令执行的查找和替换

system("perl -pi -e 's/$arr3[$i]/$arr2[$i]/g' /opt/app/d1ebl1m5/dv02/cingbt02/J2EEServer/config/AMSS/application/properties/CSCEnvVar.properties_try"); 

的$arr3[$i]值中包含特殊字符，例如-e，$等我能做些什么，忽略所有特殊字符，只是把表达为正常的字符串

Answer 1

通常要

my $search_pat = quotemeta($search);  
s/\Q$search_pat\E/$replace/g 

或T他相当于

s/\Q$search\E/$replace/ 

它通常是一个坏主意来生成代码，因此该解决方案成为

system(
    perl => (
     '-i', '-p', 
     '-e' => ' 
     BEGIN { $s = shift(@ARGV); $e = shift(@ARGV); } 
     s/\Q$s/$e/g 
     ', 
     '--', 
     $arr3[$i], 
     $arr2[$i], 
     '/opt/app/.../CSCEnvVar.properties_try', 
    ) 
);