From: Dirk Koopman Date: Thu, 23 Jul 2020 12:20:04 +0000 (+0100) Subject: chnage skimmeranalysis a bit X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=2f2a82ae96d34591bc70cd6ee49c200695cc92d5;p=spider.git chnage skimmeranalysis a bit --- 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;