88144200: 88144201: -110 88144202: -195 88144203: -122 88144204: -195 88144205: 30 88144206: 150 88144207: 10 88144208: 10 88144209: 640 88144210: 01 ##

##

use strict;
use XML::Twig;
my @moList = qw(es:vsDataExternalENodeBFunction es:vsDataTermPointToENB es:vsDataEUtranCellFDD es:vsDataEUtranFreqRelation es:vsDataEUtranCellRelation es:vsDataENodeBFunction es:vsDataExternalEUtranCellFDD);

# Subroutine declarations
sub handle_mo; sub usage;

# Parameter hash
my($key,$value,%param);
foreach my $item (@ARGV){
  my($key,$value) = split /=/, $item;
  $param{$key} = $value;
}
# Required parameters
if (!defined($param{"path"})){
  usage;
  die "No path defined\n";
}
if (!defined($param{"file"})){
  usage;
  die "No xml file defined\n";
}

my $path2xml = $param{"path"};
my $filename = $param{"file"};

my %handlers = map {$_ => \&handle_mo} @moList;
my $twig = new XML::Twig( twig_roots => \%handlers);

$filename = $path2xml . "/" . $filename;
$twig->parsefile($filename);
my $root = $twig->root;
print "Parsing completed\n";

# Subroutines
sub usage {
  print "Usage:\n  xml_parser path= file=\n";
}
sub handle_mo {
  my ( $t, $elt) = @_;
  print $elt->print, "\n";
  $t->purge;
}