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	dpavlin	22	#!/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";