mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-21 07:47:10 +00:00
23 lines
350 B
Perl
23 lines
350 B
Perl
|
#!/usr/bin/perl
|
||
|
|
#
|
||
|
|
# convert an Ak1a DX.DAT file to comma delimited form
|
||
|
|
#
|
||
|
|
#
|
||
|
|
|
||
|
|
use Prefix;
|
||
|
|
|
||
|
|
|
||
|
|
Prefix::load();
|
||
|
|
|
||
|
|
sub comp
|
||
|
|
{
|
||
|
|
my ($a, $b) = @_;
|
||
|
|
return ($a->dxcc()-0) <=> ($b->dxcc()-0);
|
||
|
|
}
|
||
|
|
|
||
|
|
foreach $ref (sort {$a->dxcc() <=> $b->dxcc()} values %Prefix::prefix_loc) {
|
||
|
|
$name = $ref->name();
|
||
|
|
$dxcc = $ref->dxcc();
|
||
|
|
print "dxcc: $dxcc name: $name\n";
|
||
|
|
}
|