#! /usr/bin/perl
-# parse_ncbi_results retreives files of search results from ncbi,
-# and is released under the terms of the GPL version 2, or any later
-# version, at your option. See the file README and COPYING for more
-# information.
+# combine_results, is part of the gene search suite, and is released
+# under the terms of the GPL version 2, or any later version, at your
+# option. See the file README and COPYING for more information.
-# Copyright 2004 by Don Armstrong <don@donarmstrong.com>.
-
-# $Id: ss,v 1.1 2004/06/29 05:26:35 don Exp $
+# Copyright 2006,2007 by Don Armstrong <don@donarmstrong.com>.
use warnings;
=head1 NAME
- parse_ncbi_results [options]
+ combine_results -- combines parsed result files; outputs to stdout.
=head1 SYNOPSIS
+ combine_results parsed_results_1.txt [parsedresultfiles ...]
Options:
- --dir, -D directory to stick results into [default .]
- --name, -n file naming scheme [default ${search}_results.$format]
- --terms, -t file of search terms [default -]
--debug, -d debugging level [default 0]
--help, -h display this help
--man, -m display manual
=head1 EXAMPLES
- parse_ncbi_results -D ./ncbi_results/ -n '${search}_name.html' < search_parameters
+ combine_results foo_1.txt
Will pretty much do what you want
-use vars qw($DEBUG $REVISION);
+use vars qw($DEBUG);
BEGIN{
- ($REVISION) = q$LastChangedRevision: 1$ =~ /LastChangedRevision:\s+([^\s]+)/;
$DEBUG = 0 unless defined $DEBUG;
}
my %options = (debug => 0,
help => 0,
man => 0,
- dir => '.',
- keyword => undef,
);
GetOptions(\%options,'keyword|k=s','debug|d+','help|h|?','man|m');