perl/create_prefix.pl

   1 #
   2 # a program to create a prefix file from a wpxloc.raw file
   3 #
   4 # Copyright (c) - Dirk Koopman G1TLH
   5 #
   6 # $Id$
   7 #
   8
   9 use DXVars;
  10
  11 # open the input file
  12 $ifn = $ARGV[0] if $ARGV[0];
  13 $ifn = "$data/wpxloc.raw" if !$fn;
  14 open (IN, $ifn) or die "can't open $ifn ($!)";
  15
  16 while (<IN>) {
  17   next if /^\!/;    # ignore comment lines
  18   chomp;
  19   @f = split;       # get each 'word'
  20   @pre = split /\,/, $f[0];    # split the callsigns
  21 }