perl/dxcc.pl

   1 #!/usr/bin/perl
   2 #
   3 # Analyse the dxcc info in the prefix database, listing the 'official' country and its number
   4 # and also looking for duplicates and missing numbers
   5 #
   6 #
   7
   8 use Prefix;
   9
  10
  11 Prefix::load();
  12
  13 sub comp
  14 {
  15   my ($a, $b) = @_;
  16   return ($a->dxcc()-0) <=> ($b->dxcc()-0);
  17 }
  18
  19 $lastdxcc = 0;
  20 foreach $ref (sort {$a->dxcc() <=> $b->dxcc()} values %Prefix::prefix_loc) {
  21   $name = $ref->name();
  22   $dxcc = $ref->dxcc();
  23   while ($lastdxcc < $dxcc - 1) {
  24         ++$lastdxcc;
  25     print "dxcc: $lastdxcc name:  ** MISSING\n";
  26   }
  27   $dup = "";
  28   $dup = "** DUPLICATE" if $dxcc == $lastdxcc;
  29   print "dxcc: $dxcc name: $name $dup\n";
  30   $lastdxcc = $dxcc;
  31 }