]> www.dxcluster.org Git - spider.git/blob - perl/dxcc.pl
replace all " with ' Messages
[spider.git] / 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 }