diff options
author | Yigit Sever | 2019-09-16 22:21:38 +0300 |
---|---|---|
committer | Yigit Sever | 2019-09-16 22:21:38 +0300 |
commit | 6430ff4318ef2350cce3ae6d5fbe9e0a551d9c4f (patch) | |
tree | 3b2ad3de7b9e2e0e0ce142a6052a183c282409e6 /train_dic_creator.pl | |
parent | ff425f488d12d4ecf41a81c65784d32224404aec (diff) | |
download | Evaluating-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-x | train_dic_creator.pl | 4 |
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]; | |||
109 | my $train_file_name = $source_lang . '_' . $target_lang . '.train'; | 109 | my $train_file_name = $source_lang . '_' . $target_lang . '.train'; |
110 | my $test_file_name = $source_lang . '_' . $target_lang . '.test'; | 110 | my $test_file_name = $source_lang . '_' . $target_lang . '.test'; |
111 | 111 | ||
112 | open my $train_fh, '>', $train_file_name; | 112 | open my $train_fh, '>', $dict_dir . $train_file_name; |
113 | open my $test_fh, '>', $test_file_name; | 113 | open my $test_fh, '>', $dict_dir . $test_file_name; |
114 | 114 | ||
115 | print $train_fh join("\n", @head); | 115 | print $train_fh join("\n", @head); |
116 | print $test_fh join("\n", @tail); | 116 | print $test_fh join("\n", @tail); |