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

View of /FigKernelScripts/genomes_of.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Tue Apr 27 15:41:28 2004 UTC (16 years, 1 month ago) by overbeek
Branch: MAIN
CVS Tags: merge-trunktag-bobdev_news-2, Root-bobdev_news, merge-bobdev_news-1, caBIG-dataload-0, merge-trunktag-bobdev_news-1, merge-bodev_news-3, efrank-preMakefileToStandardMk, caBIG-00-00-00, merge-bobdev_news-2, merge-trunktag-bodev_news-3
Branch point for: Branch-bobdev_news
basic query tools

use FIG;

# usage: genomes_of < PEG > GENOME

@genomes = map { chop; $_ =~ /(\S+)$/ ? &FIG::genome_of($1) : () } <STDIN>;
%genomes = map { $_ => 1 } @genomes;

foreach $genome (sort { $a <=> $b } keys(%genomes))
{
    print "$genome\n";
}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3