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

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3