src/proc-uk-freq-class

   1 #!/usr/bin/perl
   2
   3 use IO::Handle;
   4
   5 chdir "r/uk-freq-class/" or die;
   6
   7 for $i (0 ... 16) {
   8     $f[$i] = new IO::Handle;
   9     open $f[$i], ">uk.".sprintf("%02u",$i);
  10 }
  11
  12 open F, "wlist.html";
  13
  14 while(<F>) {
  15     /^(\S+) (\S+)\n/ or next;
  16     $f[$2]->print("$1\n");
  17 }