Changeset 16308 for trunk/ippScripts/scripts/detrend_norm_calc.pl

Timestamp:

Feb 5, 2008, 11:47:19 AM (18 years ago)

Author:

Paul Price

Message:

Added verbose flags to scripts.

File:

• trunk/ippScripts/scripts/detrend_norm_calc.pl (modified) (5 diffs)

trunk/ippScripts/scripts/detrend_norm_calc.pl

@@ -32 +32 @@
 
 # Parse command-line arguments
-my ($det_id, $iter, $detType, $outroot, $dbname, $no_update, $no_op);
+my ($det_id, $iter, $detType, $outroot, $dbname, $verbose, $no_update, $no_op);
 GetOptions(
         'det_id|d=s'    => \$det_id,    # Detrend id                         
@@ -39 +39 @@
         'outroot|w=s'   => \$outroot,   # output file base name
         'dbname|d=s'    => \$dbname,    # Database name                      
+        'verbose'       => \$verbose,   # Print to stdout
         'no-update'     => \$no_update, # Don't update the database?         
         'no-op'         => \$no_op,     # Don't do operations                
@@ -88 +89 @@
     my @command = split /\s+/, $command;
     my ( $stdin, $stdout, $stderr ); # Buffers for running program
-    print "Running [$command]...\n";
+    print "Running [$command]...\n" if $verbose;
     if (not run(\@command, \$stdin, \$stdout, \$stderr)) {
         &my_die("Unable to perform dettool -processedimfile on detrend $det_id/$iter: $?",
                 $det_id, $iter, $PS_EXIT_SYS_ERROR);
     }
-#    print $stdout . "\n";
+    print $stdout . "\n" if $verbose;
     
     # Because of the length, need to split into individual metadatas --- it parses SO much quicker!
@@ -141 +142 @@
         my ( $stdout, $stderr ); # Buffers for running program
         my @command = split /\s+/, $ppNormCalc;
-        print "Running [$ppNormCalc]...\n";
+        print "Running [$ppNormCalc]...\n" if $verbose;
         if (not run(\@command, \$normData, \$stdout, \$stderr)) {
             &my_die("Unable to perform ppNormCalc: $?", $det_id, $iter, $PS_EXIT_SYS_ERROR);
         }
-        print $stdout . "\n";
+        print $stdout . "\n" if $verbose;
         
         # Parse the output
@@ -187 +188 @@
 
         my ( $stdin, $stdout, $stderr ); # Buffers for running program
-        print "Running [$command]...\n";
+        print "Running [$command]...\n" if $verbose;
         if (not run \@command, \$stdin, \$stdout, \$stderr) {
             warn("Unable to perform dettool -addnormstat for $className: $?");
             exit($PS_EXIT_SYS_ERROR);
         }
-        print $stdout . "\n";
+        print $stdout . "\n" if $verbose;
     }
 } else {