[svn-upgrade] Tagging scowl (7.1)

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

diff --git a/7.1/src/proc-uk-freq-class b/7.1/src/proc-uk-freq-class
new file mode 100755 (executable)
index 0000000..b4c9687
--- /dev/null
+++ b/7.1/src/proc-uk-freq-class
@@ -0,0 +1,17 @@
+#!/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");
+}