diff options
Diffstat (limited to 'scripts/train_dic_creator.pl')
-rwxr-xr-x | scripts/train_dic_creator.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/scripts/train_dic_creator.pl b/scripts/train_dic_creator.pl index 0a9f931..e7b1253 100755 --- a/scripts/train_dic_creator.pl +++ b/scripts/train_dic_creator.pl | |||
@@ -58,7 +58,7 @@ if (-e "$dict_dir/$target_lang-$source_lang.dic") { | |||
58 | $file_name = "$source_lang-$target_lang.dic"; | 58 | $file_name = "$source_lang-$target_lang.dic"; |
59 | } | 59 | } |
60 | 60 | ||
61 | my $file_path = $dict_dir . $file_name; | 61 | my $file_path = "${dict_dir}/${file_name}"; |
62 | 62 | ||
63 | local @ARGV = $file_path; | 63 | local @ARGV = $file_path; |
64 | local $^I = '.bak'; | 64 | local $^I = '.bak'; |
@@ -106,8 +106,8 @@ my $size = $cutoff / 2; | |||
106 | my @head = @result[0..$size - 1]; | 106 | my @head = @result[0..$size - 1]; |
107 | my @tail = @result[-$size..-1]; | 107 | my @tail = @result[-$size..-1]; |
108 | 108 | ||
109 | my $train_file_name = "$dict_dir/$source_lang_$target_lang.train'; | 109 | my $train_file_name = "${dict_dir}/${source_lang}_${target_lang}.train"; |
110 | my $test_file_name = "$dict_dir/$source_lang_$target_lang.test'; | 110 | my $test_file_name = "${dict_dir}/${source_lang}_${target_lang}.test"; |
111 | 111 | ||
112 | open my $train_fh, '>', $train_file_name; | 112 | open my $train_fh, '>', $train_file_name; |
113 | open my $test_fh, '>', $test_file_name; | 113 | open my $test_fh, '>', $test_file_name; |