小弟是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);
}
}