Changeset 9267 for trunk/ippScripts/scripts/phase0_imfile.pl

Timestamp:

Oct 4, 2006, 2:51:22 PM (20 years ago)

Author:

Paul Price

Message:

Passing the command as an array, since we don't want to split on
whitespace (in particular, there may be whitespace in the object
name).

File:

• trunk/ippScripts/scripts/phase0_imfile.pl (modified) (1 diff)

trunk/ippScripts/scripts/phase0_imfile.pl

@@ -97 +97 @@
 # Push the results into the database
 unless ($no_update) {
-    my $command = $p0tool . " " . P0TOOL_MODE() . " " . P0TOOL_EXPTAG() . " " . $exp_tag . " " .
-        P0TOOL_CLASSID() . " " . $class_id; # Command to run p0tool
-    
+    my @command;
+    push @command, $p0tool, P0TOOL_MODE(), P0TOOL_EXPTAG(), $exp_tag, P0TOOL_CLASSID(), $class_id; # Command to run p0tool
+
     foreach my $constant (keys %{CONSTANTS()}) {
-        $command .= " " . CONSTANTS->{$constant} . " " . ($stats->data($constant))->{value};
+        push @command, CONSTANTS->{$constant}, ($stats->data($constant))->{value};
     }
     foreach my $variable (keys %{VARIABLES()}) {
         # Just use the mean value
-        $command .= " " . VARIABLES->{$variable} . " " . ($stats->data($variable))->{mean};
+        push @command, VARIABLES->{$variable}, ($stats->data($variable))->{mean};
     }
-
-    $command .= " " . P0TOOL_BG_MEAN() . " " . $stats->bg_mean();
+    
+    push @command, P0TOOL_BG_MEAN(), $stats->bg_mean(), P0TOOL_BG_STDEV();
     if (defined($stats->bg_stdev())) {
-        $command .= " " . P0TOOL_BG_STDEV() . " " . $stats->bg_stdev();
+        push @command, $stats->bg_stdev();
     } else {
         # Will not be defined if there is only a single imfile
-        $command .= " " . P0TOOL_BG_STDEV() . " 0";
+        push @command, 0;
     }
-    $command .= " " . P0TOOL_BG_MEAN_STDEV() . " " . $stats->bg_mean_stdev();
+    push @command,  P0TOOL_BG_MEAN_STDEV(), $stats->bg_mean_stdev();
  
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-        run(command => $command, verbose => 1);
+        run(command => \@command, verbose => 1);
     die "Unable to perform p0tool -updateimfile: $error_code\n" if not $success;
 }