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

Annotation of /FigKernelScripts/genomes_of.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (view) (download) (as text)

1 : overbeek 1.1 use FIG;
2 :    
3 :     # usage: genomes_of < PEG > GENOME
4 :    
5 :     @genomes = map { chop; $_ =~ /(\S+)$/ ? &FIG::genome_of($1) : () } <STDIN>;
6 :     %genomes = map { $_ => 1 } @genomes;
7 :    
8 :     foreach $genome (sort { $a <=> $b } keys(%genomes))
9 :     {
10 :     print "$genome\n";
11 :     }

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3