[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.1, Fri Mar 31 19:37:40 2006 UTC revision 1.4, Wed Apr 12 14:23:10 2006 UTC
# Line 1  Line 1 
1    use FIG;
2    my $fig = new FIG;
3    
4  $_ = <STDIN>;  $_ = <STDIN>;
5  while (defined($_) && ($_ =~ /^(\S+)\t\S+\t(\S+)/))  while (defined($_) && ($_ =~ /^(\S+)\t(\S+)/))
6  {  {
7      $curr = $1;      $curr = $1;
8      $func = $2;      $peg = $2;
9        $func = $fig->function_of($peg);
10      $ok = 1;      $ok = 1;
11      @set = ();      @set = ();
12      while ($_ && ($_ =~ /^(\S+)\t\S+\t(\S+)/) && ($1 eq $curr))      while ($_ && ($_ =~ /^(\S+)\t(\S+)/) && ($1 eq $curr))
13      {      {
14          if ($2 ne $func)          $peg = $2;
15            $func1 = $fig->function_of($peg);
16            if ($func1 ne $func)
17          {          {
18              $ok = 0;              $ok = 0;
19          }          }

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3