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
16 return ($a->dxcc()-0) <=> ($b->dxcc()-0);
20 foreach $ref (sort {$a->dxcc() <=> $b->dxcc()} values %Prefix::prefix_loc) {
23 while ($lastdxcc < $dxcc - 1) {
25 print "dxcc: $lastdxcc name: ** MISSING\n";
28 $dup = "** DUPLICATE" if $dxcc == $lastdxcc;
29 print "dxcc: $dxcc name: $name $dup\n";