Imported Upstream version 2015.08.24

[deb_pkgs/scowl.git] / 6 / src / proc-uk-freq-class

diff --git a/6/src/proc-uk-freq-class b/6/src/proc-uk-freq-class
deleted file mode 100755 (executable)
index b4c9687..0000000
--- a/6/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");
-}