[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.2, Wed Apr 12 13:10:38 2006 UTC
# Line 1  Line 1 
1    
2  $_ = <STDIN>;  $_ = <STDIN>;
3  while (defined($_) && ($_ =~ /^(\S+)\t\S+\t(\S+)/))  while (defined($_) && ($_ =~ /^(\S+)\t\S+\t(\S.*\S)/))
4  {  {
5      $curr = $1;      $curr = $1;
6      $func = $2;      $func = $2;
7      $ok = 1;      $ok = 1;
8      @set = ();      @set = ();
9      while ($_ && ($_ =~ /^(\S+)\t\S+\t(\S+)/) && ($1 eq $curr))      while ($_ && ($_ =~ /^(\S+)\t\S+\t(\S.*\S)/) && ($1 eq $curr))
10      {      {
11          if ($2 ne $func)          if ($2 ne $func)
12          {          {

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3