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

View of /FigKernelScripts/put_func_on_families_2c.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Tue Oct 8 20:58:43 2013 UTC (6 years, 2 months ago) by overbeek
Branch: MAIN
CVS Tags: rast_rel_2014_0729, rast_rel_2014_0912, HEAD
get funcs

use strict;

my $rel = shift @ARGV;
my $relD = "/vol/figfam-prod/$rel";
(-d $relD) || die "usage: put_func_on_families_2c ReleaseN";

my %fam_func = map { ($_ =~ /^(\S+)\t(\S.*\S)/) ? ($1 => $2) : () } `cat $relD/family.functions`;
my $func;
open(F2C,"<$relD/families.2c") || die "could not open $relD/families.2c";
while (defined($_ = <F2C>))
{
    if (($_ =~ /^(\S+)\t(\S+)/) && ($func = $fam_func{$1}))
    {
	print join("\t",($1,$2,$func)),"\n";
    }
    else
    {
	print join("\t",($1,$2,'')),"\n";
    }
}
close(F2C);

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3