projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
4eb47d7
)
chnage skimmeranalysis a bit
author
Dirk Koopman
<djk@tobit.co.uk>
Thu, 23 Jul 2020 12:20:04 +0000
(13:20 +0100)
committer
Dirk Koopman
<djk@tobit.co.uk>
Thu, 23 Jul 2020 12:20:04 +0000
(13:20 +0100)
perl/skimmeranaylsis.pl
patch
|
blob
|
history
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 (<>) {
$morse = new Text::Morse;
while (<>) {
- next unless /SK
0
MMR/;
+ next unless /SK
1
MMR/;
($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);
($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} ||= {};
$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;
my ($sec,$min,$hour) = gmtime $gts;
$s->{$sk} = sprintf "%-.3s %4d %.1f %02d:%02d:%02d", $md, $str, $f, $hour, $min, $sec;