Changeset 17435 for branches/eam_branch_20080408/ippScripts/scripts/detrend_process_exp.pl

Timestamp:

Apr 10, 2008, 9:39:42 PM (18 years ago)

Author:

eugene

Message:

add save_temps

File:

• branches/eam_branch_20080408/ippScripts/scripts/detrend_process_exp.pl (modified) (3 diffs)

branches/eam_branch_20080408/ippScripts/scripts/detrend_process_exp.pl

@@ -36 +36 @@
 
 my ( $det_id, $exp_id, $det_type, $exp_tag, $camera, $outroot, $dbname, $reduction, $verbose, $no_update,
-     $no_op );
+     $no_op, $save_temps );
 GetOptions(
     'det_id|d=s'        => \$det_id,
@@ -49 +49 @@
     'no-update'         => \$no_update,
     'no-op'             => \$no_op,
+    'save-temps'        => \$save_temps, # Save temporary files?
 ) or pod2usage( 2 );
 
@@ -123 +124 @@
 
 # File lists for the two binnings
-my ($list1File, $list1Name) = tempfile( "$exp_tag.detproc.$det_id.b1.list.XXXX", UNLINK => 1 );
-my ($list2File, $list2Name) = tempfile( "$exp_tag.detproc.$det_id.b2.list.XXXX", UNLINK => 1 );
+my ($list1File, $list1Name) = tempfile( "$exp_tag.detproc.$det_id.b1.list.XXXX", UNLINK => !$save_temps );
+my ($list2File, $list2Name) = tempfile( "$exp_tag.detproc.$det_id.b2.list.XXXX", UNLINK => !$save_temps );
 foreach my $file (@$files) {
     print $list1File ($ipprc->filename( "PPIMAGE.BIN1", $file->{path_base}, $file->{class_id} ) . "\n");