From 2f2a82ae96d34591bc70cd6ee49c200695cc92d5 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Thu, 23 Jul 2020 13:20:04 +0100 Subject: [PATCH] chnage skimmeranalysis a bit --- perl/skimmeranaylsis.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/perl/skimmeranaylsis.pl b/perl/skimmeranaylsis.pl index b0704765..cf4b0c0c 100755 --- a/perl/skimmeranaylsis.pl +++ b/perl/skimmeranaylsis.pl @@ -9,7 +9,7 @@ use Text::Morse; $morse = new Text::Morse; while (<>) { - next unless /SK0MMR/; + next unless /SK1MMR/; ($gts,$sk,$f,$c,$md,$str,$zt)=m|^(\d+)\^.*DX de ([-\w\d/]+)-\#:\s+([\.\d]+)\s+([-\w\d/]+)\s+(\w{1,3})\s+(-?\d+).*(\d{4})Z|; next unless $sk && $c; $e = sprintf "%010d", nearest(5, $f*10); @@ -18,7 +18,7 @@ while (<>) { $key = "$zt|$e"; $r = $spot{$key} ||= {}; - $s = $r->{"$c|$m"} ||= {}; + $s = $r->{$c} ||= {}; my ($sec,$min,$hour) = gmtime $gts; $s->{$sk} = sprintf "%-.3s %4d %.1f %02d:%02d:%02d", $md, $str, $f, $hour, $min, $sec; -- 2.43.0