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

Diff of /FigKernelScripts/split_clean_unclean_families.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2, Wed Apr 12 13:10:38 2006 UTC revision 1.3, Wed Apr 12 14:13:26 2006 UTC
# Line 1  Line 1 
1    
2  $_ = <STDIN>;  $_ = <STDIN>;
3  while (defined($_) && ($_ =~ /^(\S+)\t\S+\t(\S.*\S)/))  while (defined($_) && ($_ =~ /^(\S+)\t(\S+)\t(\S.*\S)/))
4  {  {
5      $curr = $1;      $curr = $1;
6      $func = $2;      $peg = $2;
7        $func = $fig->function_of($peg);
8      $ok = 1;      $ok = 1;
9      @set = ();      @set = ();
10      while ($_ && ($_ =~ /^(\S+)\t\S+\t(\S.*\S)/) && ($1 eq $curr))      while ($_ && ($_ =~ /^(\S+)\t(\S+)\t(\S.*\S)/) && ($1 eq $curr))
11      {      {
12          if ($2 ne $func)          $peg = $2;
13            $func1 = $fig->function_of($peg);
14            if ($func1 ne $func)
15          {          {
16              $ok = 0;              $ok = 0;
17          }          }
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
MCS Webmaster
 ViewVC Help
Powered by ViewVC 1.0.3