got the prefix code working quite well, changed a few country codes.

[spider.git] / perl / dxcc.pl

diff --git a/perl/dxcc.pl b/perl/dxcc.pl
new file mode 100755 (executable)
index 0000000..3b4d97f
--- /dev/null
+++ b/perl/dxcc.pl
@@ -0,0 +1,22 @@
+#!/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";
+}