小弟剛學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"這個關鍵字，符合有這兩個的行在最前面加上"//"
要如何在加上這第二個條件
謝謝各位大大 希望能有範例讓我參考!!
感激不盡