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

Annotation of /FigKernelScripts/split_assignments_based_on_subsystems.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 :     foreach $sub ($fig->all_subsystems)
6 :     {
7 :     $cat = $fig->subsystem_classification($sub);
8 :     if (&ok_sub($fig,$sub))
9 :     {
10 :     $trusted{$sub} = 1;
11 :     }
12 :     }
13 :    
14 :     while (defined($x = <STDIN>))
15 :     {
16 :     if ($x =~ /^(\S+)/)
17 :     {
18 :     $peg = $1;
19 :     @tmp = grep { $trusted{$_} } $fig->peg_to_subsystems($peg);
20 :     if (@tmp > 0)
21 :     {
22 :     print STDERR $x;
23 :     }
24 :     else
25 :     {
26 :     print $x;
27 :     }
28 :     }
29 :     }
30 :    
31 :     sub ok_sub {
32 :     my($fig,$sub) = @_;
33 :    
34 :     my $cat = $fig->subsystem_classification($sub);
35 :     return (defined($cat->[0]) && ($cat->[0] !~ /experimental/i));
36 :     }
37 :    

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3