Changeset 19261 for trunk/ippScripts/scripts/detrend_resid_exp.pl
- Timestamp:
- Aug 28, 2008, 10:02:01 AM (18 years ago)
- File:
-
- 1 edited
-
trunk/ippScripts/scripts/detrend_resid_exp.pl (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/ippScripts/scripts/detrend_resid_exp.pl
r18562 r19261 158 158 159 159 # XXX in debug mode, unlink = 0 160 my ($list1File, $list1Name) = tempfile( " $exp_tag.detresid.$det_id.$iter.b1.list.XXXX", UNLINK => !$save_temps );161 my ($list2File, $list2Name) = tempfile( " $exp_tag.detresid.$det_id.$iter.b2.list.XXXX", UNLINK => !$save_temps );160 my ($list1File, $list1Name) = tempfile( "/tmp/$exp_tag.detresid.$det_id.$iter.b1.list.XXXX", UNLINK => !$save_temps ); 161 my ($list2File, $list2Name) = tempfile( "/tmp/$exp_tag.detresid.$det_id.$iter.b2.list.XXXX", UNLINK => !$save_temps ); 162 162 foreach my $file (@$files) { 163 163 print $list1File ($ipprc->filename( "PPIMAGE.BIN1", $file->{path_base}, $file->{class_id} ) . "\n");
Note:
See TracChangeset
for help on using the changeset viewer.
