删除perl中的某些行

Question

while ($line = <IN>){
    ...
print OUT "$line";
print OUT1 "$line";
}

这里我使用while循环来读取输入文件中的行。我想删除以符号%开头的行。我还想删除不以A，B或C开头的行。我可以使用什么功能？

Answer 1

简而言之，您只需要以A,B or C开头的行。所以您只需使用

即可

^[ABC].*$