Changeset 17517 for trunk/ippScripts/scripts/detrend_norm_exp.pl

Timestamp:

May 4, 2008, 2:12:00 PM (18 years ago)

Author:

eugene

Message:

adding save_temps option

File:

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

trunk/ippScripts/scripts/detrend_norm_exp.pl

@@ -35 +35 @@
 use Pod::Usage qw( pod2usage );
 
-my ($det_id, $iter, $det_type, $camera, $outroot, $dbname, $reduction, $verbose, $no_update, $no_op);
+my ($det_id, $iter, $det_type, $camera, $outroot, $dbname, $reduction, $verbose, $no_update, $no_op, $save_temps);
 GetOptions(
            'det_id|d=s'        => \$det_id,
@@ -47 +47 @@
            'no-update'         => \$no_update,
            'no-op'             => \$no_op,
+           'save-temps'        => \$save_temps, # Save temporary files?
            ) or pod2usage( 2 );
 
@@ -119 +120 @@
 }
 
-my ($list1File, $list1Name) = tempfile( "$camera.$det_type.norm.$det_id.$iter.b1.list.XXXX", UNLINK => 1 );
-my ($list2File, $list2Name) = tempfile( "$camera.$det_type.norm.$det_id.$iter.b2.list.XXXX", UNLINK => 1 );
+my ($list1File, $list1Name) = tempfile( "$camera.$det_type.norm.$det_id.$iter.b1.list.XXXX", UNLINK => !$save_temps );
+my ($list2File, $list2Name) = tempfile( "$camera.$det_type.norm.$det_id.$iter.b2.list.XXXX", UNLINK => !$save_temps );
 foreach my $file (@$files) {
     print $list1File ( $ipprc->filename( "PPIMAGE.BIN1", $file->{path_base}, $file->{class_id} ) . "\n");