игнорировать специальные символы в находке и команду 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 

или эквивалент

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', 
    ) 
);