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

Diff of /FigKernelScripts/call_genes.pl

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

revision 1.1, Wed Jul 1 17:43:53 2009 UTC revision 1.2, Wed Jul 8 20:22:16 2009 UTC
# Line 81  Line 81 
81  my $ffServer = FFserver->new();  my $ffServer = FFserver->new();
82    
83  # Pass the input file to the FIGfam server to get assignments.  # Pass the input file to the FIGfam server to get assignments.
84  my $result = $ffServer->call_genes(\*STDIN, $genetic_code);  my $ret = $ffServer->call_genes(\*STDIN, $genetic_code);
85    my ($fa, $encoded_tbl)  = @$ret;
86    
87    print $fa;
88    print STDERR join("\t", @$_), "\n" for @$encoded_tbl;
89    
 print $result;  

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3