[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.3, Wed Apr 12 14:13:26 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.*\S)/))  while (defined($_) && ($_ =~ /^(\S+)\t(\S+)/))
6  {  {
7      $curr = $1;      $curr = $1;
8      $peg = $2;      $peg = $2;
9      $func = $fig->function_of($peg);      $func = $fig->function_of($peg);
10      $ok = 1;      $ok = 1;
11      @set = ();      @set = ();
12      while ($_ && ($_ =~ /^(\S+)\t(\S+)\t(\S.*\S)/) && ($1 eq $curr))      while ($_ && ($_ =~ /^(\S+)\t(\S+)/) && ($1 eq $curr))
13      {      {
14          $peg = $2;          $peg = $2;
15          $func1 = $fig->function_of($peg);          $func1 = $fig->function_of($peg);

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3