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

Diff of /FigKernelScripts/make_fam_tabs.pl

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

revision 1.1, Tue Jul 12 00:34:32 2005 UTC revision 1.2, Mon Aug 1 18:52:58 2005 UTC
# Line 54  Line 54 
54      {      {
55          while (defined($_ = <FAMFUNC>))          while (defined($_ = <FAMFUNC>))
56          {          {
57                if (($_ =~ /^(\S+)\t(\S[^\t]*\S)$/) && (length($2) < 256))
58                {
59              print TAB3 $_;              print TAB3 $_;
60          }          }
61                else
62                {
63                    print STDERR "BAD: $_";
64                }
65            }
66          close(FAMFUNC);          close(FAMFUNC);
67      }      }
68  }  }

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3