diff options
| author | bojar <bojar@1f5c12ca-751b-0410-a591-d2e778427230> | 2008-02-19 20:32:51 +0300 |
|---|---|---|
| committer | bojar <bojar@1f5c12ca-751b-0410-a591-d2e778427230> | 2008-02-19 20:32:51 +0300 |
| commit | fa31d83421129655e26d4834227fe2fd4394e214 (patch) | |
| tree | 9be4031bd5c88b9a34ffac1a0643bfffc6a2afcf | |
| parent | eec1bdb62397d4421bcb03258f5487fe60dbe194 (diff) | |
even factors that are being added can be gzipped
git-svn-id: https://mosesdecoder.svn.sourceforge.net/svnroot/mosesdecoder/trunk@1561 1f5c12ca-751b-0410-a591-d2e778427230
| -rwxr-xr-x | scripts/training/reduce_combine.pl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/scripts/training/reduce_combine.pl b/scripts/training/reduce_combine.pl index ee58b8118..f29df9151 100755 --- a/scripts/training/reduce_combine.pl +++ b/scripts/training/reduce_combine.pl @@ -40,8 +40,10 @@ if ($corppathname eq "-") { my $corpdn = dirname($corppathname); my $corpbn = basename($corppathname); +$corpbn =~ s/\.gz$//; my %streams = map { my $fn = "$corpdn/$factordir/$corpbn.$_"; + $fn .= ".gz" if ! -e $fn; my $stream = my_open($fn); die "Can't read '$fn'" if !defined $stream; ( $_, $stream ); # define a mapping factorlabel->stream |