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