use strict; use warnings; use XML::LibXML::Reader; my $XMLfile = 'myfile.xml'; print "Parsing...\n"; my $reader = 'XML::LibXML::Reader'->new(location => $XMLfile) or die print "Error"; my $entry_pattern = 'XML::LibXML::Pattern'->new('/martif/text/body/termEntry'); my $counter=5000; my $signalprint=0; while ($reader->nextPatternMatch($entry_pattern)) { my $ID; my $value=""; my $info=""; my $termEntry = $reader->copyCurrentNode(1); for my $subject ($termEntry->findnodes('descripGrp')) { $info = $subject->findvalue('./descrip'); } for my $lang_set ($termEntry->findnodes('langSet')) { my $ID = $lang_set->getAttribute('xml:lang'); for my $term_grp ($lang_set->findnodes('./tig')){ $value = $term_grp->findvalue('./term'); } } $counter--; #committing to database every $counter executions if ($counter eq 0){ $counter=5000; $signalprint = $signalprint + $counter; print "Done $signalprint\n"; } } print "Finished!\n"; ##

##

use strict;
use warnings;
use XML::LibXML::Reader;
	
my $XMLfile = 'myfile.xml';

print "Parsing...\n";
	
	my $reader = 'XML::LibXML::Reader'->new(location => $XMLfile) or die print "Error";
	my $entry_pattern = 'XML::LibXML::Pattern'->new('/martif/text/body/termEntry');
	
	while ($reader->nextPatternMatch($entry_pattern)) {
		my $termEntry = $reader->copyCurrentNode(1);
	}

print "Finished!\n";

##

##

 


  
    
      
      
    
    
      TBXXCS.xcs
    
  
  
  
      
        
          04
          economics,
        
        
          
            employment policy
            fullForm
            3
          
        
        
          
            werkgelegenheidsbeleid
            fullForm
            3