X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=7.1%2Fsrc%2Fproc-uk-freq-class;fp=7.1%2Fsrc%2Fproc-uk-freq-class;h=0000000000000000000000000000000000000000;hb=b13ea8a082364672c6de2b010e558211ff52ec9a;hp=b4c96875d0394cdd390087ba7581c480ff53f967;hpb=01534a94130c1f5a3a230cf4fe18365a235ba271;p=deb_pkgs%2Fscowl.git

diff --git a/7.1/src/proc-uk-freq-class b/7.1/src/proc-uk-freq-class
deleted file mode 100755
index b4c9687..0000000
--- a/7.1/src/proc-uk-freq-class
+++ /dev/null
@@ -1,17 +0,0 @@
-#!/usr/bin/perl
-
-use IO::Handle;
-
-chdir "r/uk-freq-class/" or die;
-
-for $i (0 ... 16) {
-    $f[$i] = new IO::Handle;
-    open $f[$i], ">uk.".sprintf("%02u",$i);
-}
-
-open F, "wlist.html";
-
-while(<F>) {
-    /^(\S+) (\S+)\n/ or next;
-    $f[$2]->print("$1\n");
-}