$line_count = 0;
open (OLD_FILE, "<$old_file") or die ("Could not open $old_file.");
open (NEW_FILE, ">$new_file") or die ("Could not open $new_file.");
while (<OLD_FILE>) {
chomp ($_);
if ($_ =~ /^FILE NAME/) {
$line_count++;
if ($line_count > 1) {
next;
}
}
print NEW_FILE "$_\n";
)
close (FILE);
Это соответствует шаблону в каждой строке нашего старого файла.Если строка начинается с «ИМЯ ФАЙЛА» и мы уже сопоставили это один раз, то она больше не печатает эти строки в наш новый файл.