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

Timestamp:

Sep 27, 2006, 9:35:47 AM (20 years ago)

Author:

Paul Price

Message:

Changing name conventions to match those in doc/ippTools/filenames.txt

File:

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

trunk/ippScripts/scripts/detrend_reject_imfile.pl

@@ -96 +96 @@
 
 # Generate the file list, and get the statistics
-my $outputName = $exp_id . '_' . $det_id . '_' . $iter; # Root output name
-my $list1Name = $outputName . '_jpeg1.list'; # Name for the input file list for binning 1
-my $list2Name = $outputName . '_jpeg2.list'; # Name for the input file list for binning 2
+my $outputRoot = $exp_id . '.detresid.' . $det_id . '.' . $iter; # Root output name
+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 @stdevs;                     # Array of stdevs
@@ -113 +113 @@
 
 # Output products --- need to synch with the camera configuration!
-my $jpeg1Name = $outputName . ".b1.jpg"; # Binned JPEG #1
-my $jpeg2Name = $outputName . ".b2.jpg"; # Binned JPEG #2
+my $jpeg1Name = $outputRoot . ".b1.jpg"; # Binned JPEG #1
+my $jpeg2Name = $outputRoot . ".b2.jpg"; # Binned JPEG #2
 
 # Make the jpeg for binning 1
 {
-    my $command = "$ppImage -list $list1Name $outputName -recipe PPIMAGE " . RECIPE1; # Command to run
+    my $command = "$ppImage -list $list1Name $outputRoot -recipe PPIMAGE " . RECIPE1; # Command to run
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
         run(command => $command, verbose => 1);
@@ -126 +126 @@
 # Make the jpeg for binning 2
 {
-    my $command = "$ppImage -list $list2Name $outputName -recipe PPIMAGE " . RECIPE2; # Command to run
+    my $command = "$ppImage -list $list2Name $outputRoot -recipe PPIMAGE " . RECIPE2; # Command to run
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
         run(command => $command, verbose => 1);