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

Timestamp:

Mar 12, 2007, 5:01:10 PM (19 years ago)

Author:

Paul Price

Message:

Updating directory names, output file names.

File:

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

trunk/ippScripts/scripts/detrend_norm_exp.pl

@@ -115 +115 @@
 }
 
+# Set output directory
 if (defined $workdir) {
     $workdir = $ipprc->convert_filename_absolute( $workdir );
+    my $subdir = "$camera.$det_type.$det_id";
+    $workdir = File::Spec->catdir( $workdir, $subdir );
 } else {
     my $example = ${$files}[0]->{path_base}; # Example file, for path
@@ -122 +125 @@
     $workdir = $dir;
 }
+system "mkdir -p $workdir" unless -d $workdir;
 
 # Generate the file list, and get the statistics
 my $outputFile = "$camera.$det_type.norm.$det_id.$iter"; # Root output name
-my $outputSubD = "$camera.$det_type.$det_id";
-my $outputRoot = File::Spec->catfile( $workdir, $outputSubD, $outputFile );
+my $outputRoot = File::Spec->catfile( $workdir, $outputFile );
 
 my $list1Name = $outputRoot . '.b1.list'; # Name for the input file list for binning 1