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

Annotation of /FigKernelScripts/check_starts_for_peg_sets.pl

Parent Directory Parent Directory | Revision Log Revision Log


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

1 : overbeek 1.1
2 :     use FIG;
3 :    
4 :     $usage = "usage: check_starts_for_peg_sets ClearCorrections ProposedCorrections < sets > objects.with.calls";
5 :    
6 :     (
7 :     ($clear = shift @ARGV) &&
8 :     ($proposed = shift @ARGV)
9 :     )
10 :     || die $usage;
11 :    
12 :     while (defined($_ = <STDIN>))
13 :     {
14 :     chop;
15 :     @pegs = split(/\t/,$_);
16 :     if (@pegs > 2)
17 :     {
18 :     open(TMP,"| start_data_for_set_of_pegs use-close > tmp.objects$$")
19 :     || die "could not set up pipe to start_data_for_set_of_pegs";
20 :     foreach $peg (@pegs)
21 :     {
22 :     print TMP "$peg\n";
23 :     }
24 :     close(TMP);
25 :     &FIG::run("predict_starts tmp.objects$$ tmp.clear$$ tmp.proposed$$; cat tmp.clear$$ >> $clear; cat tmp.proposed$$ >> $proposed");
26 :     }
27 :     }
28 :    
29 :    

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3