word aligner cleanup, new features

1 files changed, 0 insertions, 17 deletions

diff --git a/word-aligner/extract_weights.pl b/word-aligner/extract_weights.pl
deleted file mode 100755
index dfedd12e..00000000
--- a/word-aligner/extract_weights.pl
+++ /dev/null
@@ -1,17 +0,0 @@
-#!/usr/bin/perl -w
-use strict;
-my %dict=();
-while(<>) {
-  chomp;
-  my ($dummy, $a, $b, $wts) = split / \|\|\| /;
-  my @weights = split /\s+/, $wts;
-  for my $w (@weights) {
-    my ($name, $val) = split /=/, $w;
-    unless ($dict{$name}) {
-      my $r = (0.5 - rand) / 5;
-      $r = sprintf ("%0.4f", $r);
-      print "$name $r\n";
-      $dict{$name}= 1;
-    }
-  }
-}