Как я могу удалить файл, созданный и открытый с помощью Perl IO :: File и XML :: Writer?

Question

Итак, я бегу по списку вещей и у меня есть код, который создает .xml файлы с IO :: File с именем $doc, затем я создаю нового писателя с XML::Writer(OUTPUT => $doc). Выполняется больше кода, и я создаю большой XML-файл с XML :: Writer . Затем, ближе к концу файла, я выясняю, нужен ли мне этот файл вообще. Если мне это нужно, я просто:

 $writer->end(); $doc->close(); 

но если мне это не нужно, что мне нужно ввести, чтобы просто удалить все данные, которые я сохранил / сохранил, и перейти к следующему файлу? Я пытался unlink($docpath) (до и после $doc->close()), файл не был удален.

Answer 1

unlink поможет установить $! и вернет ложное значение, если файлы не были удалены. Попробуйте:

unlink $docpath or die "Can't delete $docpath: $!";

и вы можете получить некоторое представление.