Skip to content

Instantly share code, notes, and snippets.

@szpajder
szpajder / hfdl_gs_freq_changes.pl
Created February 10, 2022 23:29
This script analyzes a log file produced by dumphfdl and list HFDL frequency changes as a timestamped event list
#!/usr/bin/perl -w
use Getopt::Std;
my $freqs = {};
sub check_freqs {
my($date, $gs, $frequency, $reporting_freq, $reporting_gs) = (shift, shift, shift, shift, shift);
my @new_freqs_list = @_;
$freqs->{$gs} ||= {};
my $new_freqs = {};
@szpajder
szpajder / hfdl_generate_bands_sh.pl
Created February 10, 2022 23:23
This scripts parses dumphfdl log file and builds an array of frequencies that have been advertised in HFDL squitters found in the log
#!/usr/bin/perl -w
use Getopt::Std;
my $freqs = {};
sub add_freqs {
my $gs = shift;
my @freqs_list = @_;
for(@freqs_list) {
#print "Adding freq $_\n";