Text archives Help

---

Author: abe
Date: Thu Feb  2 03:37:03 2006
New Revision: 880

Modified:
   trunk/StandAlone/manta_scaling_plot.pl
Log:

Modified scaling plot script to output to a file other than the input file.

M    StandAlone/manta_scaling_plot.pl


Modified: trunk/StandAlone/manta_scaling_plot.pl
==============================================================================
--- trunk/StandAlone/manta_scaling_plot.pl      (original)
+++ trunk/StandAlone/manta_scaling_plot.pl      Thu Feb  2 03:37:03 2006
@@ -8,7 +8,7 @@
         "-series <n>      -- Independent series inteleaved by n lines.\n" .
         "                    This means that the input is interleaved.\n" .
         "                    Default 1.\n" .
-        "-label <label0> <label1>\n" .
+        "-labels <label0> <label1>\n" .
         "                 -- Specify a label for each series. (required)\n";
 }
 
@@ -32,6 +32,9 @@
     elsif ($ARGV[$i] eq "-key") {
         $key = $ARGV[++$i];
     }
+    elsif ($ARGV[$i] eq "-out") {
+        $out_file = $ARGV[++$i];
+    }
 }
 
 # Check to see if enough subtitles were provided.
@@ -47,7 +50,12 @@
     exit(1);
 }
 
-$out_file = $input_file;
+# Use the input file as a default output file.
+$out_mode = ">";
+if ($out_file eq "") {
+    $out_file = $input_file;
+    $out_mode = ">>";
+}
 
 # Open input file.
 if (!open(INPUT,"<",$input_file)) {
@@ -135,7 +143,7 @@
 close (GNUPLOT);
 
 # Append to the input file.
-if (!open(HTML, ">>", $input_file)) {
+if (!open(HTML, $out_mode, $out_file)) {
     print "Cannot open $input_file for appending.\n";
     exit(1);
 }

---

• [MANTA] r880 - trunk/StandAlone, abe, 02/02/2006

---

Archive powered by MHonArc 2.6.16.