kopia lustrzana https://github.com/rs1729/RS
pos ->nmea/aprs: velocity update
rodzic
b04cd6ea61
commit
afeaba31ed
|
@ -71,7 +71,9 @@ while ($line = <$fpi>) {
|
|||
$date = $3*10000+$2*100+($1%100);
|
||||
}
|
||||
|
||||
if ($line =~ /vH:\ *(\d+\.\d+)\ +D:\ *(\d+\.\d+).*/) {
|
||||
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;
|
||||
}
|
||||
|
|
|
@ -77,7 +77,9 @@ while ($line = <$fpi>) {
|
|||
$date = $3*10000+$2*100+($1%100);
|
||||
}
|
||||
|
||||
if ($line =~ /vH:\ *(\d+\.\d+)\ +D:\ *(\d+\.\d+).*/) {
|
||||
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;
|
||||
}
|
||||
|
|
Ładowanie…
Reference in New Issue