XML :: LibXML perl 무료 메모리

Question

수백 개의 XML 파일을 처리해야합니다. 저는 XML :: LibXML을 사용하고 있습니다. 펄 아주 새로운 그리고 난 잃고으로

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

덕분에 모든 새

예를 열기 전에, 주먹 XML 파싱 파일을 닫는 방법 리카르도

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