3 # export a standard ak1a opernam.dat file into CSV format.
5 # Copyright (c) 1999 Dirk Koopman G1TLH
12 my @f = unpack "SA13A23SA12A6SSSSA1CSSSA1A80A1A13A1", $rec;
17 my @a = split m{\0}, $f;
25 die "Need an filename" unless @ARGV;
26 open IN, $ARGV[0] or die "can't open $ARGV[0] ($!)";
28 while (sysread(IN, $buf, 196)) {