Changeset 9005

Timestamp:

Sep 27, 2006, 9:53:12 AM (20 years ago)

Author:

Paul Price

Message:

Adding output for running commands.

File:

• trunk/ippScripts/scripts/detrend_calc_norm.pl (modified) (3 diffs)

trunk/ippScripts/scripts/detrend_calc_norm.pl

@@ -46 +46 @@
     my @command = split /\s+/, $command;
     my ( $stdin, $stdout, $stderr ); # Buffers for running program
+    print "Running [$command]...\n";
     run \@command, \$stdin, \$stdout, \$stderr or
         die "Unable to perform dettool -processed -unmask on detrend $detId/$iter: $?";
+    print $stdout . "\n";
     
     # Parse the output
@@ -81 +83 @@
     my ( $stdout, $stderr ); # Buffers for running program
     my @command = split /\s+/, $ppNormCalc;
+    print "Running [$ppNormCalc]...\n";
     run \@command, \$normData, \$stdout, \$stderr or
         die "Unable to perform ppNormCalc: $?";
+    print $stdout . "\n";
 
     # Parse the output
@@ -100 +104 @@
 
         my ( $stdin, $stdout, $stderr ); # Buffers for running program
+        print "Running [$command]...\n";
         run \@command, \$stdin, \$stdout, \$stderr or
             die "Unable to perform dettool -addnormstat for $className: $?";
+        print $stdout . "\n";
     }
 }