maps/bin/nmea2kml.pl

#!/usr/bin/perl

# Convert GPS NMEA dump into Google's kml file

use strict;
use warnings;

use lib '../';
use NMEA;

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

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

print qq{<?xml version="1.0" encoding="UTF-8"?>
<kml xmlns="http://earth.google.com/kml/2.2">
<Document>
        <name>$path</name>
        <Folder>
                <name>NMEA trace</name>
};


my $point = 0;

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

        $point++;

        print qq{
        <Placemark>
                <name>$point</name>
                <description>
        }, join(' ', map { ucfirst($_) . ':' . $hash->{$_} } ( qw/time lat lon speed course date var var_ew/ ) ), qq{
                </description>
                <Point>
                        <coordinates>}, $hash->{lon}, ',', $hash->{lat}, qq{,0</coordinates>
                </Point>
        </Placemark>
        };
}

print qq{
        </Folder>
</Document>
</kml>
};

warn "Produced $point points from $path\n";
1	#!/usr/bin/perl
2
3	# Convert GPS NMEA dump into Google's kml file
4
5	use strict;
6	use warnings;
7
8	use lib '../';
9	use NMEA;
10
11	my $path = shift @ARGV \|\| die "usage: $0 nmea_dump.gps\n";
12
13	open(my $fh, '<', $path) \|\| die "can't open $path: $!";
14
15	print qq{<?xml version="1.0" encoding="UTF-8"?>
16	<kml xmlns="http://earth.google.com/kml/2.2">
17	<Document>
18	<name>$path</name>
19	<Folder>
20	<name>NMEA trace</name>
21	};
22
23
24	my $point = 0;
25
26	while(<$fh>) {
27	my $hash = NMEA->line( $_ ) \|\| next;
28
29	$point++;
30
31	print qq{
32	<Placemark>
33	<name>$point</name>
34	<description>
35	}, join(' ', map { ucfirst($_) . ':' . $hash->{$_} } ( qw/time lat lon speed course date var var_ew/ ) ), qq{
36	</description>
37	<Point>
38	<coordinates>}, $hash->{lon}, ',', $hash->{lat}, qq{,0</coordinates>
39	</Point>
40	</Placemark>
41	};
42	}
43
44	print qq{
45	</Folder>
46	</Document>
47	</kml>
48	};
49
50	warn "Produced $point points from $path\n";