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

Annotation of /FigKernelScripts/figfam_subsystems.pl

Parent Directory Parent Directory | Revision Log Revision Log


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

1 : arodri7 1.1 #!/usr/bin/env /home/arodri7/FIGdisk/bin/run_perl
2 :    
3 :     use Data::Dumper;
4 :     use Carp;
5 :     use FIG_Config;
6 :     use FIG;
7 :     use FigFam;
8 :    
9 :     my $usage = "figfam_subsystems $famsDirectory\n";
10 :     my $famsD = $ARGV[0];
11 :    
12 :     use FigFams;
13 :     my $fig = new FIG;
14 :     my $figfams = new FigFams($fig,$famsD);
15 :    
16 :     open (FH, "$famsD/family.functions");
17 :     while (my $line = <FH>){
18 :     next if ($line =~ /not subsystem-based/);
19 :     chomp ($line);
20 :     my ($fam_id, $function) = split(/\t/, $line);
21 :     #my $subsystems = $fig->function_to_subsystems($function);
22 :     print join ("\t", ($fam_id, $function, $fig->function_to_subsystems($function))) . "\n" if (! $fig->function_to_subsystems($function));
23 :     }
24 :     close FH;
25 :    

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3