У меня есть несколько команд, печатающих текст в файл с помощью perl. Во время этих print
команд у меня есть оператор if, который должен удалить последние 5 строк файла, в который я сейчас пишу, если оператор верен. Количество строк для удаления всегда будет равно 5.
if ($exists == 0) {
print(OUTPUT ???) # this should remove the last 5 lines
}