kopia lustrzana https://github.com/rs1729/RS
130 wiersze
3.3 KiB
Perl
Executable File
130 wiersze
3.3 KiB
Perl
Executable File
#!/usr/bin/env perl
|
|
use strict;
|
|
use warnings;
|
|
|
|
|
|
my $filename = undef;
|
|
my $date = undef;
|
|
|
|
while (@ARGV) {
|
|
if ($ARGV[0] eq "--date") {
|
|
shift @ARGV;
|
|
if (defined $ARGV[0]) {
|
|
$date = shift @ARGV;
|
|
}
|
|
}
|
|
else {
|
|
$filename = shift @ARGV;
|
|
}
|
|
}
|
|
|
|
my $fpi;
|
|
|
|
if (defined $filename) {
|
|
open($fpi, "<", $filename) or die "Could not open $filename: $!";
|
|
}
|
|
else {
|
|
$fpi = *STDIN;
|
|
}
|
|
|
|
my $fpo = *STDOUT;
|
|
|
|
|
|
my $line;
|
|
|
|
my $hms;
|
|
my $lat; my $lon; my $alt;
|
|
my $sign = 1;
|
|
my $NS; my $EW;
|
|
my $cs;
|
|
my $str;
|
|
|
|
my $speed = 0.00;
|
|
my $course = 0.00;
|
|
|
|
if (defined $date && $date =~ /(\d?\d\d\d\d\d)/) {
|
|
$date = $1;
|
|
}
|
|
else {
|
|
$date = 21116; ## (d)dmmyy ohne fuehrende 0 (wenn pos-log kein Datum enthaelt)
|
|
}
|
|
|
|
my $geoid = 50.0; ## GPS ueber Ellipsoid; Geoid-Hoehe in Europa ca 40-50m
|
|
|
|
$| = 1; ## line buffering erzwingen
|
|
|
|
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*).*/)
|
|
or ($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
|
|
|
|
$hms = $1*10000+$2*100+$3;
|
|
|
|
if ($4 < 0) { $NS="S"; $sign *= -1; }
|
|
else { $NS="N"; $sign = 1}
|
|
$lat = $sign*$4*100+$5*60;
|
|
|
|
if ($6 < 0) { $EW="W"; $sign = -1; }
|
|
else { $EW="E"; $sign = 1; }
|
|
$lon = $sign*$6*100+$7*60;
|
|
|
|
$alt = $8;
|
|
|
|
if ($line =~ /(\d\d\d\d)-(\d\d)-(\d\d).*/) {
|
|
$date = $3*10000+$2*100+($1%100);
|
|
}
|
|
|
|
if ( ($line =~ /vH:\ *(\d+\.\d+)\ +D:\ *(\d+\.\d+).*/)
|
|
or ($line =~ /vH:\ *(\d+\.\d+)m\/s\ +D:\ *(\d+\.\d+).*/) )
|
|
{
|
|
$speed = $1*3.6/1.852; ## m/s -> knots
|
|
$course = $2;
|
|
}
|
|
|
|
$str = sprintf("GPRMC,%010.3f,A,%08.3f,$NS,%09.3f,$EW,%.2f,%.2f,%06d,,", $hms, $lat, $lon, $speed, $course, $date);
|
|
$cs = 0;
|
|
$cs ^= $_ for unpack 'C*', $str;
|
|
printf $fpo "\$$str*%02X\n", $cs;
|
|
|
|
$str = sprintf("GPGGA,%010.3f,%08.3f,$NS,%09.3f,$EW,1,04,0.0,%.3f,M,%.1f,M,,", $hms, $lat, $lon, $alt-$geoid, $geoid);
|
|
$cs = 0;
|
|
$cs ^= $_ for unpack 'C*', $str;
|
|
printf $fpo "\$$str*%02X\n", $cs;
|
|
|
|
}
|
|
#elsif ($line =~ / # xdata = (.*)/) { ## nicht, wenn (oben) alle Zeilen ausgeben werden
|
|
# if ($1) {
|
|
# print STDERR $line;
|
|
# }
|
|
#}
|
|
|
|
}
|
|
|
|
close $fpi;
|
|
close $fpo;
|
|
|
|
|
|
#############################################################################################################################
|
|
##
|
|
## term-1$ socat -d -d pty,raw,echo=0 pty,raw,b4800,echo=0 #[default baudrate 38400]
|
|
## N PTY is /dev/pts/12
|
|
## N PTY is /dev/pts/15
|
|
##
|
|
## term-2$ sox -t oss /dev/dsp -t wav - lowpass 3600 2>/dev/null | ./rs92ecc --ecc --crc --vel2 -e brdc3010.16n | \
|
|
## ./pos2nmea.pl --date 31116 > /dev/pts/12
|
|
##
|
|
## term-3$ gpsd -D2 -b -n -N /dev/pts/15
|
|
##
|
|
## term-4$ gpspipe -R localhost:2947
|
|
##
|
|
## Viking: GPS-layer, Realtime Tracking Mode, gpsd-port: 2947
|
|
##
|
|
#############################################################################################################################
|
|
|
|
|