projects
/
spider.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
got the prefix code working quite well, changed a few country codes.
[spider.git]
/
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
}