aboutsummaryrefslogtreecommitdiffstats
path: root/train_dic_creator.pl
diff options
context:
space:
mode:
authorYigit Sever2019-09-16 22:21:38 +0300
committerYigit Sever2019-09-16 22:21:38 +0300
commit6430ff4318ef2350cce3ae6d5fbe9e0a551d9c4f (patch)
tree3b2ad3de7b9e2e0e0ce142a6052a183c282409e6 /train_dic_creator.pl
parentff425f488d12d4ecf41a81c65784d32224404aec (diff)
downloadEvaluating-Dictionary-Alignment-6430ff4318ef2350cce3ae6d5fbe9e0a551d9c4f.tar.gz
Evaluating-Dictionary-Alignment-6430ff4318ef2350cce3ae6d5fbe9e0a551d9c4f.tar.bz2
Evaluating-Dictionary-Alignment-6430ff4318ef2350cce3ae6d5fbe9e0a551d9c4f.zip
Dictionary creation done
Diffstat (limited to 'train_dic_creator.pl')
-rwxr-xr-xtrain_dic_creator.pl4
1 files changed, 2 insertions, 2 deletions
diff --git a/train_dic_creator.pl b/train_dic_creator.pl
index a8de6ea..1921a85 100755
--- a/train_dic_creator.pl
+++ b/train_dic_creator.pl
@@ -109,8 +109,8 @@ my @tail = @result[-$size..-1];
109my $train_file_name = $source_lang . '_' . $target_lang . '.train'; 109my $train_file_name = $source_lang . '_' . $target_lang . '.train';
110my $test_file_name = $source_lang . '_' . $target_lang . '.test'; 110my $test_file_name = $source_lang . '_' . $target_lang . '.test';
111 111
112open my $train_fh, '>', $train_file_name; 112open my $train_fh, '>', $dict_dir . $train_file_name;
113open my $test_fh, '>', $test_file_name; 113open my $test_fh, '>', $dict_dir . $test_file_name;
114 114
115print $train_fh join("\n", @head); 115print $train_fh join("\n", @head);
116print $test_fh join("\n", @tail); 116print $test_fh join("\n", @tail);