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

View of /FigKernelScripts/generate_GenomeGroups_for_sprout.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Thu Jun 16 18:27:08 2005 UTC (14 years, 11 months ago) by overbeek
Branch: MAIN
CVS Tags: merge-trunktag-bobdev_news-2, Root-bobdev_news, merge-bobdev_news-1, merge-trunktag-bobdev_news-1, merge-bodev_news-3, merge-bobdev_news-2, merge-trunktag-bodev_news-3
Branch point for: Branch-bobdev_news
routines to support derivation of sprout data

use FIG;
my $fig = new FIG;

my $usage = "usage: generate_Property_for_sprout GenomesF SproutData";

(
 ($genomesF = shift @ARGV) &&
 ($sproutD  = shift @ARGV)
)
    || die $usage;

my @genomes = map { $_ =~ /^(\S+)/; $1 } `cat $genomesF`;

open(GENOMEGROUPS,"| sort -u +1 -2 +0n -1 > $sproutD/GenomeGroups") || die "could not open $sproutD/GenomeGroups";

foreach $genome (@genomes)
{
    if (open(NMPDR,"<$FIG_Config::organisms/$genome/NMPDR") && defined($_ = <NMPDR>))
    {
	chomp;
	print GENOMEGROUPS "$genome\t$_\n";
	close(NMPDR);
    }
}
close(GENOMEGROUPS);

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3