小弟是Perl的初學者
都是靠GOOGLE大神教我的
這邊我遇到一個問題
就是我在搜尋字串並且取代的時候
因為要搜尋的字串包含雙引號 "
所以一直無法正確搜尋並且取代
請高手賜教 感謝
my $ps = qq/system("ps >& ps.log");/;
my $markps = qq/#system("ps >& ps.log");/;
open (PS, "<A.pl");
my @PS =<PS>;
close (PS);
for my $RegLine(@PS)
{
if ($RegLine =~ s/$ps/$markps/g)
{
open (PS, ">A.pl");
print PS @PS;
close (PS);
}
}