diff options
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); |