my $parser = XML::LibXML->new->parse_file($file);
my $xml = XML::LibXML::XPathContext->new($parser);
$xml->registerNs($string,'http://www.garmin.com/xmlschemas/TrainingCenterDatabase/v2');
####
for my $key ($xml->findnodes('//x:Lap')) {
$string = norm_date($key->findvalue("\@StartTime"));
}
##
##
for my $node ($xml->findnodes('//y:Trackpoint')) {
$time = $node->findvalue("Time");
push @X,$time;
}
##
##
for my $node ($xml->findnodes("//y:Trackpoint")) {
for my $ch ($node->childNodes) {
$time = norm_date($ch->textContent)-$epoch if $ch->nodeName =~ /Time/;
}
push @X,$time;
}