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

View of /FigKernelScripts/figfam_subsystems.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Wed Jun 18 15:43:12 2008 UTC (11 years, 7 months ago) by arodri7
Branch: MAIN
CVS Tags: rast_rel_2009_05_18, rast_rel_2008_12_18, rast_rel_2008_07_21, rast_2008_0924, rast_rel_2008_09_30, rast_rel_2009_0925, mgrast_rel_2008_0924, mgrast_rel_2008_1110_v2, rast_rel_2009_02_05, mgrast_rel_2008_0625, rast_rel_2008_10_09, rast_release_2008_09_29, mgrast_rel_2008_0806, mgrast_rel_2008_0923, mgrast_rel_2008_0919, rast_rel_2009_07_09, mgrast_rel_2008_1110, rast_rel_2008_09_29, mgrast_rel_2008_0917, rast_rel_2008_10_29, rast_rel_2009_03_26, rast_rel_2008_11_24, rast_rel_2008_08_07
update changes

#!/usr/bin/env /home/arodri7/FIGdisk/bin/run_perl

use Data::Dumper;
use Carp;
use FIG_Config;
use FIG;
use FigFam;

my $usage = "figfam_subsystems $famsDirectory\n";
my $famsD = $ARGV[0];

use FigFams;
my $fig = new FIG;
my $figfams = new FigFams($fig,$famsD);

open (FH, "$famsD/family.functions");
while (my $line = <FH>){
    next if ($line =~ /not subsystem-based/);
    chomp ($line);
    my ($fam_id, $function) = split(/\t/, $line);
    #my $subsystems = $fig->function_to_subsystems($function);
    print join ("\t", ($fam_id, $function, $fig->function_to_subsystems($function))) . "\n" if (! $fig->function_to_subsystems($function));
}
close FH;


MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3