From c97b8a8b58f7385fb48b74e2cf1ea9610cd1202f Mon Sep 17 00:00:00 2001 From: Chris Dyer Date: Mon, 1 Feb 2010 17:38:39 -0500 Subject: word aligner cleanup, new features --- word-aligner/extract_weights.pl | 17 ----------------- 1 file changed, 17 deletions(-) delete mode 100755 word-aligner/extract_weights.pl (limited to 'word-aligner/extract_weights.pl') 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; - } - } -} -- cgit v1.2.3