perl/dxcc.pl

   1 #!/usr/bin/perl
   2 #
   3 # convert an Ak1a DX.DAT file to comma delimited form
   4 #
   5 #
   6
   7 use Prefix;
   8
   9
  10 Prefix::load();
  11
  12 sub comp
  13 {
  14   my ($a, $b) = @_;
  15   return ($a->dxcc()-0) <=> ($b->dxcc()-0);
  16 }
  17
  18 foreach $ref (sort {$a->dxcc() <=> $b->dxcc()} values %Prefix::prefix_loc) {
  19   $name = $ref->name();
  20   $dxcc = $ref->dxcc();
  21   print "dxcc: $dxcc name: $name\n";
  22 }