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

Diff of /FigKernelScripts/make_close.pl

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

revision 1.1, Sat May 7 20:57:47 2005 UTC revision 1.2, Mon Jun 20 19:04:32 2005 UTC
# Line 1  Line 1 
1    
2    # usage: make_close [G1 G2 G3 ...]
3    
4  use FIG;  use FIG;
5  my $fig = new FIG;  my $fig = new FIG;
6  $dist = 5000;  $dist = 5000;
7    
8  foreach $genome ($fig->genomes)  my @genomes = (@ARGV > 0) ? @ARGV : $fig->genomes;
9    
10    foreach $genome (@genomes)
11  {  {
12      print STDERR "processing $genome\n";      print STDERR "processing $genome\n";
13      if ($fig->is_prokaryotic($genome))      if ($fig->is_prokaryotic($genome))

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3