[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.2, Thu Aug 5 17:00:40 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      }      }
41  }  }
42    }
43    
44  foreach $x (sort { $a->[1] <=> $b->[1] } @hits)  foreach $x (sort { $a->[1] <=> $b->[1] } @hits)
45  {  {

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3