pos2nmea: imet1rs

pull/8/head
Zilog80 2018-07-31 17:45:56 +02:00
rodzic 3e68a22786
commit 71c7cd36c2
1 zmienionych plików z 3 dodań i 1 usunięć

Wyświetl plik

@ -55,7 +55,9 @@ while ($line = <$fpi>) {
print STDERR $line; ## entweder: alle Zeilen ausgeben
if ($line =~ /(\d\d):(\d\d):(\d\d\.?\d?\d?\d?).*\ +lat:\ *(-?\d*)(\.\d*)\ +lon:\ *(-?\d*)(\.\d*)\ +alt:\ *(-?\d*\.\d*).*/) {
if ( ($line =~ /(\d\d):(\d\d):(\d\d\.?\d?\d?\d?).*\ +lat:\ *(-?\d*)(\.\d*)\ +lon:\ *(-?\d*)(\.\d*)\ +alt:\ *(-?\d*\.\d*).*/)
or ($line =~ /\((\d\d):(\d\d):(\d\d)\)\ +lat:\ *(-?\d*)(\.\d*)°\ +lon:\ *(-?\d*)(\.\d*)°\ +alt:\ *(-?\d*)m.*/) ) # imet1rs
{
#print STDERR $line; ## oder: nur Zeile mit Koordinaten ausgeben