From 71c7cd36c2e0dca56f17ea33e4d05db5a41e47bd Mon Sep 17 00:00:00 2001 From: Zilog80 Date: Tue, 31 Jul 2018 17:45:56 +0200 Subject: [PATCH] pos2nmea: imet1rs --- tools/pos2nmea.pl | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/tools/pos2nmea.pl b/tools/pos2nmea.pl index a1cd9f8..b5238b3 100755 --- a/tools/pos2nmea.pl +++ b/tools/pos2nmea.pl @@ -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