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

Annotation of /FigKernelScripts/make_initial_partition_scores.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (view) (download) (as text)

1 : overbeek 1.1
2 :     use SeedSims;
3 :    
4 :     use FIG;
5 :     my $fig = new FIG;
6 :    
7 :     while (defined($_ = <STDIN>))
8 :     {
9 :     if ($_ =~ /^(\S+)\t(\S+)\t(\S+)/)
10 :     {
11 :     my $id1 = $1;
12 :     my $id2 = $2;
13 :     my $sc = $3;
14 :    
15 :     my $ss1 = &to_sc($fig,$id1);
16 :     my $ss2 = &to_sc($fig,$id2);
17 :     if ($ss1 && $ss2 && ($ss1 != $ss2))
18 :     {
19 :     print join("\t",sort { $a <=> $b } ($ss1,$ss2)),"\n";
20 :     }
21 :     }
22 :     }
23 :    
24 :     sub to_sc {
25 :     my($fig,$peg) = @_;
26 :    
27 :     my $md5 = $fig->md5_of_peg($peg);
28 :     my $ss = &SeedSims::md5_to_sim_set($md5);
29 :     return $ss;
30 :     }

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3