[Bio] / FigKernelScripts / svr_contigs_in_genome.pl Repository:
ViewVC logotype

Diff of /FigKernelScripts/svr_contigs_in_genome.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2, Wed Jul 21 18:57:31 2010 UTC revision 1.3, Tue Aug 10 17:51:01 2010 UTC
# Line 20  Line 20 
20  of each contig in the genome.  of each contig in the genome.
21    
22  This is a pipe command: the input is taken from the standard input and the output  This is a pipe command: the input is taken from the standard input and the output
23  is to the standard output.  is to the standard output. It can alternatively take as input a list of genome IDs
24    specified as command-line parameters.
25    
26  =head2 Command-Line Options  =head2 Command-Line Options
27    
# Line 48  Line 49 
49  } else {  } else {
50      # Get the server object.      # Get the server object.
51      my $sapServer = SAPserver->new(url => $url);      my $sapServer = SAPserver->new(url => $url);
52        # Find out if we're getting input from STDIN or the command line.
53        my $input = (@ARGV ? [@ARGV] : \*STDIN);
54      # The main loop processes chunks of input.      # The main loop processes chunks of input.
55      while (my @tuples = ScriptThing::GetBatch(\*STDIN, undef, $column)) {      while (my @tuples = ScriptThing::GetBatch($input, undef, $column)) {
56          # Ask the server for results.          # Ask the server for results.
57          my $document = $sapServer->genome_contigs(-ids => [map { $_->[0] } @tuples]);          my $document = $sapServer->genome_contigs(-ids => [map { $_->[0] } @tuples]);
58          # Loop through the IDs, producing output.          # Loop through the IDs, producing output.

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3