… | |
… | |
30 | |
30 | |
31 | print {$self->{fh}} "dpva\n"; |
31 | print {$self->{fh}} "dpva\n"; |
32 | |
32 | |
33 | if ($self->{fh}->readline =~ m%GPSD,D=(\d\d)/(\d\d)/(\d\d\d\d) (\d\d):(\d\d):(\d\d),P=([\-0-9.]+) ([\-0-9.]+),V=([0-9.]+),A=([\-0-9.]+)%) { |
33 | if ($self->{fh}->readline =~ m%GPSD,D=(\d\d)/(\d\d)/(\d\d\d\d) (\d\d):(\d\d):(\d\d),P=([\-0-9.]+) ([\-0-9.]+),V=([0-9.]+),A=([\-0-9.]+)%) { |
34 | local $ENV{TZ} = "+0000"; |
34 | local $ENV{TZ} = "+0000"; |
35 | warn "$6,$5,$4,$1,$2,$3,0,0\n"; |
|
|
36 | $self->{data} = { |
35 | $self->{data} = { |
37 | time => (POSIX::mktime $6,$5,$4,$2,$1-1,$3-1900,0,0), |
36 | time => (POSIX::mktime $6,$5,$4,$2,$1-1,$3-1900,0,0), |
38 | lat => $7, |
37 | lat => $7, |
39 | long => $8, |
38 | long => $8, |
40 | v => $9, |
39 | v => $9, |