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

Diff of /FigKernelScripts/compute_simple_scores.pl

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

revision 1.1, Sat May 7 20:57:47 2005 UTC revision 1.3, Tue May 31 14:05:18 2005 UTC
# Line 3  Line 3 
3  ($minsc = shift @ARGV)  ($minsc = shift @ARGV)
4      || die $usage;      || die $usage;
5    
6  $_ = <STDIN>;  while (defined($_ = <STDIN>) && ($_ =~ /\t0$/)) {}
7  while ($_ && ($_ =~ /^(\S+\t\S+)/))  while ($_ && ($_ =~ /^(\S+\t\S+)/))
8  {  {
9      $curr = $1;      $curr = $1;
# Line 11  Line 11 
11      while ($_ && ($_ =~ /^(\S+\t\S+)/) && ($1 eq $curr))      while ($_ && ($_ =~ /^(\S+\t\S+)/) && ($1 eq $curr))
12      {      {
13          $n++;          $n++;
14          $_ = <STDIN>;          while (defined($_ = <STDIN>) && ($_ =~ /\t0$/)) {}
15      }      }
16    
17      if ($n >= $minsc)      if ($n >= $minsc)

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3