trk2gpx  

#!/usr/bin/perl #################################################################################### # # convert ape@map tracks (see http://www.apemap.de/) to gpx format # v2012-07-22 by peter@grobner.at use Date::Format; # [track] # (48.35936737060547,15.608397483825684) # (48.35501480102539,15.61263656616211) # --start-- # (48.35501480102539,15.61263656616211,272.0,1342942134) my $REAL='-?\d+\.\d+'; my $INT = '\d+'; while(<>) { if(/\(($REAL),($REAL),($REAL),($INT)\)/) { my($lat,$lon,$ele,$sec)=($1,$2,$3,$4); my $time=time2str('%Y-%m-%dT%H:%M:%SZ',$sec); push @trkpt,qq{ <trkpt lat="$lat" lon="$lon"> <ele>$ele</ele> <time>$time</time> </trkpt>} }} printf <<END_OF_GPX <?xml version="1.0" encoding="UTF-8" standalone="no" ?> <gpx xmlns="http://www.topografix.com/GPX/1/1" creator="trk2gpx" version="1.1" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.topografix.com/GPX/1/1 http://www.topografix.com/GPX/1/1/gpx.xsd"> <trk> <trkseg>%s </trkseg> </trk> </gpx> END_OF_GPX ,join '',@trkpt;

convert ape@map tracks to gpx format
(1.1kB)