my %options = (debug => 0,
help => 0,
man => 0,
+ keywords => [],
);
-GetOptions(\%options,'keyword|k=s','debug|d+','help|h|?','man|m');
+GetOptions(\%options,'keywords|k=s@','debug|d+','help|h|?','man|m');
pod2usage() if $options{help};
print join(',',map {qq("$_")} @csv_fields),qq(\n);
for my $gene (keys %genes) {
$genes{$gene}{rzscore} = scalar grep {$_ !~ /\[/} keys %{$genes{$gene}{terms}};
- next if $genes{$gene}{rzscore} == 1 and exists $genes{$gene}{terms}{antigen};
- $genes{$gene}{rzscore} -= 1 if exists $genes{$gene}{terms}{antigen};
print STDOUT join (',',
map {s/"//g; qq("$_")}
map {