next if /^\s*[#;]/;
next unless /\w+/;
chomp;
+ s/\r$//;
my ($keyword,$weight) = split /\t/, $_;
$weight = 1 if not defined $weight;
$state{keyword_weight}{$keyword} = $weight;
} keys %{$state{done_keywords}{parse}};
# create temporary file to store keyword weights
-
- write_command_to_file('combined_results.txt',
- "$base_dir/combine_results",
- '--keywords',
-
- @parsed_results,
- );
+ 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);
for my $result (@parsed_results) {
$result =~ s/^parsed_results_//;
$result =~ s/\.txt$//;
$state{done_keywords}{combined}{$db}{$keyword} = 1;
}
save_state(\%state);
- write_command_to_file('combined_results_table.txt',
- "$base_dir/results_to_table",
- 'combined_results.txt',
- );
ADVISE("Finished; results in $options{results}/combined_results.txt");
}
else {