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

Annotation of /FigKernelScripts/generate_GenomeGroups_for_sprout.pl

Parent Directory Parent Directory | Revision Log Revision Log


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

1 : overbeek 1.1
2 :     use FIG;
3 :     my $fig = new FIG;
4 :    
5 :     my $usage = "usage: generate_Property_for_sprout GenomesF SproutData";
6 :    
7 :     (
8 :     ($genomesF = shift @ARGV) &&
9 :     ($sproutD = shift @ARGV)
10 :     )
11 :     || die $usage;
12 :    
13 :     my @genomes = map { $_ =~ /^(\S+)/; $1 } `cat $genomesF`;
14 :    
15 :     open(GENOMEGROUPS,"| sort -u +1 -2 +0n -1 > $sproutD/GenomeGroups") || die "could not open $sproutD/GenomeGroups";
16 :    
17 :     foreach $genome (@genomes)
18 :     {
19 :     if (open(NMPDR,"<$FIG_Config::organisms/$genome/NMPDR") && defined($_ = <NMPDR>))
20 :     {
21 :     chomp;
22 :     print GENOMEGROUPS "$genome\t$_\n";
23 :     close(NMPDR);
24 :     }
25 :     }
26 :     close(GENOMEGROUPS);

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3