XML::LibXML Perl свободной памяти

Question

Мне нужно обработать сотни XML-файлов. Я использую XML::LibXML. Я совершенно новичок в Perl, и я не понимаю, как закрыть первый разобранный XML-файл перед открытием нового

пример

use XML::LibXML;
my ($parser, $doc, $node);
foreach my $xmlfullname (@xmlfullnamearray) {
    $parser = XML::LibXML->new();
    $doc    = $parser->parse_file($xmlfullname);
    $node   = $doc->findnodes("/root/node");
    ...
}

Спасибо всем, Риккардо

Answer 1

Потеряв все ссылки на него, что вы уже делаете, перезаписывая все переменные.

Немного чище и понятнее:

use XML::LibXML;

my $parser = XML::LibXML->new();

foreach my $xmlfullname (@xmlfullnamearray) {
    my $doc  = $parser->parse_file($xmlfullname);
    my $node = $doc->findnodes("/root/node");
    ...
}