aboutsummaryrefslogtreecommitdiffstats
path: root/scripts/train_dic_creator.pl
diff options
context:
space:
mode:
Diffstat (limited to 'scripts/train_dic_creator.pl')
-rwxr-xr-xscripts/train_dic_creator.pl6
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
61my $file_path = $dict_dir . $file_name; 61my $file_path = "${dict_dir}/${file_name}";
62 62
63local @ARGV = $file_path; 63local @ARGV = $file_path;
64local $^I = '.bak'; 64local $^I = '.bak';
@@ -106,8 +106,8 @@ my $size = $cutoff / 2;
106my @head = @result[0..$size - 1]; 106my @head = @result[0..$size - 1];
107my @tail = @result[-$size..-1]; 107my @tail = @result[-$size..-1];
108 108
109my $train_file_name = "$dict_dir/$source_lang_$target_lang.train'; 109my $train_file_name = "${dict_dir}/${source_lang}_${target_lang}.train";
110my $test_file_name = "$dict_dir/$source_lang_$target_lang.test'; 110my $test_file_name = "${dict_dir}/${source_lang}_${target_lang}.test";
111 111
112open my $train_fh, '>', $train_file_name; 112open my $train_fh, '>', $train_file_name;
113open my $test_fh, '>', $test_file_name; 113open my $test_fh, '>', $test_file_name;