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

Annotation of /FigKernelScripts/predict_starts.pl

Parent Directory Parent Directory | Revision Log Revision Log


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

1 : overbeek 1.2
2 : overbeek 1.1 use FIG;
3 :     my $fig = new FIG;
4 :    
5 :     $usage = "usage: predict_starts Objects ClearCalls ProposedCorrections";
6 :    
7 :     (
8 :     ($objects = shift @ARGV) &&
9 :     ($clear_calls = shift @ARGV) &&
10 :     ($proposed = shift @ARGV)
11 :     )
12 :     || die $usage;
13 :    
14 : overbeek 1.5 &FIG::run("make_calls_for_start_predictions < $objects > $FIG_Config::temp/with.calls.$$");
15 :     &FIG::run("order_corrections_for_start_predictions < $FIG_Config::temp/with.calls.$$ 2> $FIG_Config::temp/clear$$ > $FIG_Config::temp/proposed$$");
16 :     system "cat $FIG_Config::temp/clear$$ >> $clear_calls";
17 :     system "cat $FIG_Config::temp/proposed$$ >> $proposed";
18 :     system "cat $FIG_Config::temp/with.calls.$$";
19 :     unlink("$FIG_Config::temp/with.calls.$$","$FIG_Config::temp/clear$$","$FIG_Config::temp/proposed$$");
20 : overbeek 1.2
21 :    

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3