comparison easyjoin @ 4:56e80527c482 draft

Uploaded
author bgruening
date Wed, 07 Jan 2015 11:10:52 -0500
parents ec66f9d90ef0
children
comparison
equal deleted inserted replaced
3:7068d1548234 4:56e80527c482
222 sub sort_file($$$) 222 sub sort_file($$$)
223 { 223 {
224 my ($input_filename, $output_filename, $key_column) = @_; 224 my ($input_filename, $output_filename, $key_column) = @_;
225 225
226 my @SORT_COMMAND; 226 my @SORT_COMMAND;
227 push @SORT_COMMAND, $HEADER ? "sort-header" : "sort" ; 227 push @SORT_COMMAND, $HEADER ? "./sort-header" : "sort" ;
228 push @SORT_COMMAND, "-f" if $IGNORE_CASE; 228 push @SORT_COMMAND, "-f" if $IGNORE_CASE;
229 push @SORT_COMMAND, "-k${key_column},${key_column}" ; 229 push @SORT_COMMAND, "-k${key_column},${key_column}" ;
230 push @SORT_COMMAND, "--buffer-size", $SORT_BUFFER_SIZE if $SORT_BUFFER_SIZE; 230 push @SORT_COMMAND, "--buffer-size", $SORT_BUFFER_SIZE if $SORT_BUFFER_SIZE;
231 push @SORT_COMMAND, "--temporary-directory", $SORT_TEMP_DIR if $SORT_TEMP_DIR; 231 push @SORT_COMMAND, "--temporary-directory", $SORT_TEMP_DIR if $SORT_TEMP_DIR;
232 push @SORT_COMMAND, "--output", $output_filename; 232 push @SORT_COMMAND, "--output", $output_filename;