viewvc.cgi/maps/NMEA.pm

package NMEA;

use strict;
use warnings;

use Data::Dump qw/dump/;

sub hhmm {
        my $a = shift;
        if ( $a =~ m/^(\d+)(\d\d\.\d\d+)$/ ) {
                return sprintf("%1.6f", $1 + ( $2 / 60 ));
        } else {
                warn "## skipped $a\n";
                return;
        }
}

my $got_it;

sub line {
        my $self = shift;
        my $l = shift || return;

        if ( m/\$GPRMC/ ) {
                chomp;
                my @a = split(/,/,$_);

#               next unless $#a == 12;

                warn "## [$#a] ", join(' ',
                        map { "$_:$a[$_]" }
                        ( 0 .. $#a )
                ), " from $_\n";

                # is valid?
                return unless $a[2] eq 'A';

                my $hash;
                my $i = 1; # skip GPRMC;
                $hash->{$_} = $a[$i++] foreach ( qw/
                        time validity lat_hhmm lat_ns lon_hhmm lon_ew speed course date var var_ew
                / );

                $hash->{lat} = hhmm( ( $hash->{lat_ns} eq 'S' ? -1 : 1 ) * $hash->{lat_hhmm} ) || return;
                $hash->{lon} = hhmm( ( $hash->{lon_ns} eq 'W' ? -1 : 1 ) * $hash->{lon_hhmm} ) || return;

                return if ( $got_it->{ $hash->{lat} . ' ' . $hash->{lon} }++ );

                warn "##>>>> ",dump( $hash );
                return $hash;
        }

        return;
}

1;
1	package NMEA;
2
3	use strict;
4	use warnings;
5
6	use Data::Dump qw/dump/;
7
8	sub hhmm {
9	my $a = shift;
10	if ( $a =~ m/^(\d+)(\d\d\.\d\d+)$/ ) {
11	return sprintf("%1.6f", $1 + ( $2 / 60 ));
12	} else {
13	warn "## skipped $a\n";
14	return;
15	}
16	}
17
18	my $got_it;
19
20	sub line {
21	my $self = shift;
22	my $l = shift \|\| return;
23
24	if ( m/\$GPRMC/ ) {
25	chomp;
26	my @a = split(/,/,$_);
27
28	# next unless $#a == 12;
29
30	warn "## [$#a] ", join(' ',
31	map { "$_:$a[$_]" }
32	( 0 .. $#a )
33	), " from $_\n";
34
35	# is valid?
36	return unless $a[2] eq 'A';
37
38	my $hash;
39	my $i = 1; # skip GPRMC;
40	$hash->{$_} = $a[$i++] foreach ( qw/
41	time validity lat_hhmm lat_ns lon_hhmm lon_ew speed course date var var_ew
42	/ );
43
44	$hash->{lat} = hhmm( ( $hash->{lat_ns} eq 'S' ? -1 : 1 ) * $hash->{lat_hhmm} ) \|\| return;
45	$hash->{lon} = hhmm( ( $hash->{lon_ns} eq 'W' ? -1 : 1 ) * $hash->{lon_hhmm} ) \|\| return;
46
47	return if ( $got_it->{ $hash->{lat} . ' ' . $hash->{lon} }++ );
48
49	warn "##>>>> ",dump( $hash );
50	return $hash;
51	}
52
53	return;
54	}
55
56	1;