111 |
{ |
{ |
112 |
my $outfile = "$FIG_Config::temp/ffb2_xx.$$.$i"; |
my $outfile = "$FIG_Config::temp/ffb2_xx.$$.$i"; |
113 |
|
|
114 |
my $h = start(['FFB2_xx', 8, "$newD/setI", $n_get_prots, $i, $mchost, $mcport], |
my $h = start(['FFB2_xx', 12, "$newD/setI", $n_get_prots, $i, $mchost, $mcport], |
115 |
"<", "/dev/null", ">", $outfile); |
"<", "/dev/null", ">", $outfile); |
116 |
push(@handles, [$i, $h, $outfile]); |
push(@handles, [$i, $h, $outfile]); |
117 |
} |
} |
124 |
|
|
125 |
my @files = map { $_->[2] } @handles; |
my @files = map { $_->[2] } @handles; |
126 |
print STDERR "Merging phylo @files\n"; |
print STDERR "Merging phylo @files\n"; |
127 |
&FIG::run("sort -S 2G -m @files | FFB2_usable_motifs $newD/PhyloSigs 8"); |
&FIG::run("sort -S 2G -m @files | FFB2_usable_motifs $newD/PhyloSigs 7-12"); |
128 |
|
|
129 |
#&FIG::run("FFB2_get_prots $newD/ProtsByGenomeSet $newD/setI"); |
#&FIG::run("FFB2_get_prots $newD/ProtsByGenomeSet $newD/setI"); |
130 |
#&FIG::run("FFB2_get_prot_gs_oligos $newD/ProtsByGenomeSet 12 | sort $sort_args | FFB2_usable_motifs $newD/PhyloSigs"); |
#&FIG::run("FFB2_get_prot_gs_oligos $newD/ProtsByGenomeSet 12 | sort $sort_args | FFB2_usable_motifs $newD/PhyloSigs"); |