小弟刚学PERL 语法可能有点不妥请见谅
我想写一种程式功能是读取A档案内容把有"c开头后面跟着2个数字以上"
的这种关键字在该行最前面加上"//"，然后修改写入b，程式如下
&replacement = "//";
open FILE, "a";
open INPUT, ">b";
while(<FILE>)
{
s/^/&replacement/g if m/c\d{2,}/i;
print INPUT &_;
};
close INPUT;
close FILE;
我现在想要加上一个搜寻条件，除了该行有"c开头后面跟着2个数字以上"以外
而且有"xxxx"这个关键字，符合有这两个的行在最前面加上"//"
要如何在加上这第二个条件
谢谢各位大大 希望能有范例让我参考!!
感激不尽