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

Annotation of /FigKernelScripts/split_clean_unclean_families.pl

Parent Directory Parent Directory | Revision Log Revision Log


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

1 : overbeek 1.1
2 :     $_ = <STDIN>;
3 : overbeek 1.3 while (defined($_) && ($_ =~ /^(\S+)\t(\S+)\t(\S.*\S)/))
4 : overbeek 1.1 {
5 :     $curr = $1;
6 : overbeek 1.3 $peg = $2;
7 :     $func = $fig->function_of($peg);
8 : overbeek 1.1 $ok = 1;
9 :     @set = ();
10 : overbeek 1.3 while ($_ && ($_ =~ /^(\S+)\t(\S+)\t(\S.*\S)/) && ($1 eq $curr))
11 : overbeek 1.1 {
12 : overbeek 1.3 $peg = $2;
13 :     $func1 = $fig->function_of($peg);
14 :     if ($func1 ne $func)
15 : overbeek 1.1 {
16 :     $ok = 0;
17 :     }
18 :     push(@set,$_);
19 :     $_ = <STDIN>;
20 :     }
21 :    
22 :     if ($ok)
23 :     {
24 :     print join("",@set);
25 :     }
26 :     else
27 :     {
28 :     print STDERR join("",@set);
29 :     }
30 :     }

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3