Удаление некоторых строк в perl

Question

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

Здесь я использую цикл while, чтобы прочитать строки в моем входном файле. Я хотел бы удалить строки, начинающиеся с символа %. Я также хотел бы удалить строки, которые не начинаются с A, B, или C. Какую функцию я могу использовать?

Answer 1

Короче говоря, вы просто хотите линии, которые начинаются с A,B or C .so вы можете просто использовать

^[ABC].*$