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

Diff of /FigKernelScripts/similar_to.pl

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

revision 1.1, Mon May 31 23:03:40 2004 UTC revision 1.3, Fri Aug 13 19:58:57 2004 UTC
# Line 3  Line 3 
3    
4  use Sim;  use Sim;
5    
6  my $usage = "usage: bbhs [CutOff] < PEG > PEG1-Sc-PEG";  my $usage = "usage: similar_to [CutOff] < PEG > PEG1-Sc-PEG";
7    
8  my($cutoff,$pair,$peg);  my($cutoff,$pair,$peg);
9  $cutoff = shift @ARGV;  $cutoff = shift @ARGV;
# Line 29  Line 29 
29                }                }
30              } <STDIN>;              } <STDIN>;
31    
32  %pegs = map { $_ => 1 } @pegs;  foreach $peg (@pegs)
33    {
34  foreach $peg (keys(%pegs))      if (! $seen{$peg})
35  {  {
36            $seen{$peg} = 1;
37      foreach $sim ($fig->sims($peg,1000,$cutoff,"fig"))      foreach $sim ($fig->sims($peg,1000,$cutoff,"fig"))
38      {      {
39          push(@hits,[$peg,$sim->psc,$sim->id2]);          push(@hits,[$peg,$sim->psc,$sim->id2]);
40                my $sc = $sim->psc;
41                my $id2 = $sim->id2;
42                print STDERR "$peg\t$sc\t$id2\n";
43            }
44      }      }
45  }  }
46    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3