Add results to table; modify the search parssers to work better. Fix error in get_ncb...

[function2gene.git] / bin / parse_harvester_results

diff --git a/bin/parse_harvester_results b/bin/parse_harvester_results
index a35c9b902f5a9ff840d6bb3450862ae0989cd9e1..30fc0113271433674f6f178a5da882334d533c4f 100755 (executable)
--- a/bin/parse_harvester_results
+++ b/bin/parse_harvester_results
@@ -80,7 +80,9 @@ my %options = (debug    => 0,
               keywords => 0,
              );
 
-GetOptions(\%options,'keyword|k=s','dir|D=s','debug|d+','help|h|?','man|m');
+GetOptions(\%options,'keyword|k=s','dir|D=s','debug|d+','help|h|?','man|m',
+          'keywords',
+         );
 
 
 pod2usage() if $options{help};
@@ -104,7 +106,7 @@ if ($options{keywords}) {
      if (@ARGV != 1) {
          pod2usage("If the --keywords option is used, exactly one argument (the keyword) must be passed");
      }
-     $option{dir} = "$ARGV[0]_results_harvester";
+     $options{dir} = "$ARGV[0]_results_harvester";
 }
 
 
@@ -142,6 +144,7 @@ while ($_ = $dir->read) {
      }
 
      $results[NAME] ||= 'NO NAME';
+     $results[NAME] =~ s/_HUMAN//;
 
      # Find REF SEQ number
      ($results[REFSEQ]) = $result =~ m&<a\s+href="http://www.ncbi.nlm.nih.gov/entrez/