From: Dirk Koopman <djk@tobit.co.uk>
Date: Thu, 16 Dec 2021 22:05:42 +0000 (+0000)
Subject: Merge branch 'staging' of ssh://server/scm/spider into staging
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=ef77e5488c4cc47afe272f6220cc3fa0cddc5829;hp=e148ea6b5e9eb73af10a9ca4132bc257e4b9aac8;p=spider.git

Merge branch 'staging' of ssh://server/scm/spider into staging
---

diff --git a/perl/skimmeranaylsis.pl b/perl/skimmeranaylsis.pl
new file mode 100755
index 00000000..cf4b0c0c
--- /dev/null
+++ b/perl/skimmeranaylsis.pl
@@ -0,0 +1,38 @@
+#!/usr/bin/perl
+#
+#
+use lib qw(.);
+use Math::Round qw(:all);
+use JSON;
+use Text::Morse;
+
+$morse = new Text::Morse;
+
+while (<>) {
+	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);
+	$m = ''; #$morse->Encode($c);
+	$t10 = nearest(60, $gts);
+	$key = "$zt|$e";
+
+    $r = $spot{$key} ||= {};
+	$s = $r->{$c} ||= {};
+	my ($sec,$min,$hour) = gmtime $gts;
+	$s->{$sk} = sprintf "%-.3s %4d %.1f %02d:%02d:%02d", $md, $str, $f, $hour, $min, $sec;
+	
+	++$skim{$sk};
+	++$call{$c};
+}	
+
+$json = JSON->new->canonical(1)->indent(1);
+print $json->encode(\%spot), "\n";
+print $json->encode(\%skim), "\n";
+print $json->encode(\%call), "\n";
+
+$spotk = keys %spot;
+$skimk = keys %skim;
+$callk = keys %call;
+
+print "spots: $spotk skimmers: $skimk spotted calls: $callk\n";