chnage skimmeranalysis a bit

diff --git a/perl/skimmeranaylsis.pl b/perl/skimmeranaylsis.pl
index b070476594f7c070fa199a0b676433a0420fd865..cf4b0c0cfd9f3ada8d2ca0b856a36d75b9c362e2 100755 (executable)
--- 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;