$ERRORS.="unknown database(s)" if
@{$options{databases}} and
- grep {$_ !~ /^(?:ncbi|genecard|harvester)$/i} @{$options{databases}};
+ grep {$_ !~ /^(?:ncbi|genecard|harvester|ensembl)$/i} @{$options{databases}};
if (not length $options{results}) {
$ERRORS.="results directory not specified";
pod2usage($ERRORS) if length $ERRORS;
if (not @{$options{databases}}) {
- $options{databases} = [qw(ncbi genecard harvester)]
+ $options{databases} = [qw(ncbi genecard harvester ensembl)]
}
$DEBUG = $options{debug};
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;