Skip to content

Instantly share code, notes, and snippets.

@cowens

cowens/out.pl

Created August 15, 2016 21:37
Show Gist options
  • Save cowens/f38f2fbb018ab8abd73c327b0aa9d572 to your computer and use it in GitHub Desktop.
Save cowens/f38f2fbb018ab8abd73c327b0aa9d572 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
out.pl
#!/usr/bin/perl
dbmopen(%db, "calllog", 0777);
print "START-OF-LOG: 3.0\n";
@keys = keys %db;
for $k (sort @keys) {
$rec = $db{$k};
($freq, $mode, $date, $time, $exch1, $call, $exch2) = split(",", $rec);
write;
}
print "END-OF-LOG\n";
format STDOUT =
QSO: @>>>> @>> @>>>>>>>>>> @>>>> KC9CEZ 59 @<<<<<< @<<<<<<<<<<<<< 59 @<<<<<< 0
$freq, $mode, $date, $time, $exch1, $call, $exch2
.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment