[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.4 - (view) (download) (as text)

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3