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";

my $individual_placemarks = 0;

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

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

open(my $out, '>', $out_path) || die "can't open $out_path: $!";

print $out 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>
};

print $out qq{
                <Placemark id='linestring1'>
                        <name>$path</name>
                        <LineString>
                        <extrude>1</extrude>
                        <altitudeMode>relativeToGround</altitudeMode>
                        <coordinates>
} unless $individual_placemarks;

my $point = 0;

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

        $point++;

        if ( $individual_placemarks ) {

                print $out 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>
                };

        } else {
                print $out $hash->{lon}, ',', $hash->{lat}, 0, "\n";
        }
}

print $out qq{
                        </coordinates>
                        </LineString>
                </Placemark>
} unless $individual_placemarks;

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

warn "Produced $point points from $path -> $out_path\n";
1	dpavlin	14	#!/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	dpavlin	20	my $individual_placemarks = 0;
14
15	dpavlin	14	open(my $fh, '<', $path) \|\| die "can't open $path: $!";
16
17	dpavlin	20	my $out_path = $path;
18			$out_path =~ s!^.*?([^/]+)\.[^/]+$!$1!; #!
19			$out_path .= '.kml';
20
21			open(my $out, '>', $out_path) \|\| die "can't open $out_path: $!";
22
23			print $out qq{<?xml version="1.0" encoding="UTF-8"?>
24	dpavlin	14	<kml xmlns="http://earth.google.com/kml/2.2">
25			<Document>
26			<name>$path</name>
27			<Folder>
28			<name>NMEA trace</name>
29			};
30
31	dpavlin	20	print $out qq{
32			<Placemark id='linestring1'>
33			<name>$path</name>
34			<LineString>
35			<extrude>1</extrude>
36			<altitudeMode>relativeToGround</altitudeMode>
37			<coordinates>
38			} unless $individual_placemarks;
39	dpavlin	14
40			my $point = 0;
41
42			while(<$fh>) {
43			my $hash = NMEA->line( $_ ) \|\| next;
44
45			$point++;
46
47	dpavlin	20	if ( $individual_placemarks ) {
48
49			print $out qq{
50			<Placemark>
51			<name>$point</name>
52			<description>
53			}, join(' ', map { ucfirst($_) . ':' . $hash->{$_} } ( qw/time lat lon speed course date var var_ew/ ) ), qq{
54			</description>
55			<Point>
56			<coordinates>}, $hash->{lon}, ',', $hash->{lat}, qq{,0</coordinates>
57			</Point>
58			</Placemark>
59			};
60
61			} else {
62			print $out $hash->{lon}, ',', $hash->{lat}, 0, "\n";
63			}
64	dpavlin	14	}
65
66	dpavlin	20	print $out qq{
67			</coordinates>
68			</LineString>
69			</Placemark>
70			} unless $individual_placemarks;
71
72			print $out qq{
73	dpavlin	14	</Folder>
74			</Document>
75			</kml>
76			};
77	dpavlin	17
78	dpavlin	20	warn "Produced $point points from $path -> $out_path\n";