XML::LibXML perl 释放内存

【问题标题】：XML::LibXML perl free memoryXML::LibXML perl 释放内存
【发布时间】：2013-10-27 10:59:09
【问题描述】：

我需要处理数百个 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");
    ...
}

谢谢大家，里卡多

【问题讨论】：

标签： perl xml-libxml

【解决方案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");
    ...
}

【讨论】：