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

Annotation of /FigKernelScripts/make_match_table.pl

Parent Directory Parent Directory | Revision Log Revision Log


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

1 : overbeek 1.1 # usage: make_match_table < math.peg.synonyms > match.table
2 :    
3 :     while (defined($_ = <STDIN>))
4 :     {
5 :     if (($_ =~ /^([^,]+),(\d+)\t([^,]+),(\d+)/) && ($2 == $4))
6 :     {
7 :     $id1 = $1;
8 :     $id2 = $3;
9 :     if (($id1 =~/^OLD_(\S+)/) && ($old = $1) && ($id2 !~ /^OLD_/))
10 :     {
11 :     print "$old\t$id2\n";
12 :     }
13 :     elsif (($id2 =~/^OLD_(\S+)/) && ($old = $1) && ($id1 !~ /^OLD_/))
14 :     {
15 :     print "$old\t$id1\n";
16 :     }
17 :     }
18 :     }
19 :    

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3