Changeset 11360 for trunk/ippScripts/scripts/detrend_reject_imfile.pl

Timestamp:

Jan 29, 2007, 7:37:37 AM (19 years ago)

Author:

eugene

Message:

update workdir and outroot names

File:

• trunk/ippScripts/scripts/detrend_reject_imfile.pl (modified) (1 diff)

trunk/ippScripts/scripts/detrend_reject_imfile.pl

@@ -95 +95 @@
 
 # Generate the file list, and get the statistics
-my $outputRoot = $exp_tag . '.detresid.' . $det_id . '.' . $iter; # Root output name
-$outputRoot = File::Spec->catfile( $workdir, $outputRoot );
+my $outputFile = "$exp_tag.detresid.$det_id.$iter"; # Root name
+my $outputRoot = File::Spec->catfile( $workdir, $exp_tag, $outputFile );
+
 my $list1Name = $outputRoot . '.b1.list'; # Name for the input file list for binning 1
 my $list2Name = $outputRoot . '.b2.list'; # Name for the input file list for binning 2
+
 my @means;                      # Array of means
 my @variances;                  # Array of variances