word-aligner/support/extract_weights.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#!/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;
    }
  }
}