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

Annotation of /FigKernelScripts/predict_starts.pl

Parent Directory Parent Directory | Revision Log Revision Log


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

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3