- write_command_to_file('combined_results.txt',
- "$base_dir/combine_results",
- @parsed_results,
- );
+ # create temporary file to store keyword weights
+ my $file = IO::File->new('combined_keywords.txt','w') or
+ die "Unable to open combined_keywords.txt for writing: $!";
+ for my $keyword (keys %{$state{keyword_weight}}) {
+ print {$file} "$keyword\t$state{keyword_weight}{$keyword}\n";
+ }
+ system("$base_dir/combine_results",
+ '--keywords','combined_keywords.txt',
+ '--results','combined_results.txt',
+ '--results-table','combined_results_table.txt',
+ @parsed_results,
+ ) == 0
+ or die "combine_results failed with ".($?>>8);