2 # a program to create a prefix file from a wpxloc.raw file
4 # Copyright (c) - Dirk Koopman G1TLH
12 $ifn = $ARGV[0] if $ARGV[0];
13 $ifn = "$data/wpxloc.raw" if !$fn;
14 open (IN, $ifn) or die "can't open $ifn ($!)";
17 next if /^\!/; # ignore comment lines
19 @f = split; # get each 'word'
20 @pre = split /\,/, $f[0]; # split the callsigns