maps/bin/nmea2gpx.pl

#!/usr/bin/perl

# Convert GPS NMEA dump into GPX

use strict;
use warnings;

use Getopt::Long;
use Geo::Gpx;

my $placemarks = 1;
my $line = 1;

GetOptions(
        'placemarks!' => \$placemarks,
        'line!' => \$line,
);

use lib '../';
use NMEA;

my $path = shift @ARGV || die "usage: $0 nmea_dump.gps\n";

open(my $fh, '<', $path) || die "can't open $path: $!";

my $out_path = $path;
$out_path =~ s!^.*?([^/]+)$!$1!;        #!
$out_path .= '.gpx';

my $gpx = Geo::Gpx->new();
my $point = 0;

while(<$fh>) {
        my $hash = NMEA->line( $_ ) || next;

        $point++;

        # time lat lon speed course date

        $gpx->add_waypoint({
                lat => $hash->{lat},
                lon => $hash->{lon},
                name => $point,
        });
}
close($fh);

open(my $out, '>', $out_path) || die "can't open $out_path: $!";
print $out $gpx->xml || die "can't write to $out_path: $!";
close($out);

warn "Produced $point points from $path -> $out_path\n";
1	#!/usr/bin/perl
2
3	# Convert GPS NMEA dump into GPX
4
5	use strict;
6	use warnings;
7
8	use Getopt::Long;
9	use Geo::Gpx;
10
11	my $placemarks = 1;
12	my $line = 1;
13
14	GetOptions(
15	'placemarks!' => \$placemarks,
16	'line!' => \$line,
17	);
18
19	use lib '../';
20	use NMEA;
21
22	my $path = shift @ARGV \|\| die "usage: $0 nmea_dump.gps\n";
23
24	open(my $fh, '<', $path) \|\| die "can't open $path: $!";
25
26	my $out_path = $path;
27	$out_path =~ s!^.*?([^/]+)$!$1!; #!
28	$out_path .= '.gpx';
29
30	my $gpx = Geo::Gpx->new();
31	my $point = 0;
32
33	while(<$fh>) {
34	my $hash = NMEA->line( $_ ) \|\| next;
35
36	$point++;
37
38	# time lat lon speed course date
39
40	$gpx->add_waypoint({
41	lat => $hash->{lat},
42	lon => $hash->{lon},
43	name => $point,
44	});
45	}
46	close($fh);
47
48	open(my $out, '>', $out_path) \|\| die "can't open $out_path: $!";
49	print $out $gpx->xml \|\| die "can't write to $out_path: $!";
50	close($out);
51
52	warn "Produced $point points from $path -> $out_path\n";