perl - 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");
    ...
}