Changeset 9004 for trunk/ippScripts/scripts/detrend_create_resid.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_create_resid.pl (modified) (8 diffs)

trunk/ippScripts/scripts/detrend_create_resid.pl

@@ -16 +16 @@
 
 my ($det_id, $iter, $exp_id, $class_id, $det_type, $detrend,
-        $input_uri, $output_uri);
+        $input_uri);
 GetOptions(
     'det_id|d=s'        => \$det_id,
@@ -25 +25 @@
     'detrend=s'         => \$detrend,
     'input_uri|u=s'     => \$input_uri,
-    'output_uri|o=s'    => \$output_uri,
 ) or pod2usage( 2 );
 
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
 pod2usage(
-    -msg => "Required options: --det_id --iteration --exp_id --class_id --det_type --detrend --input_uri --output_uri",
+    -msg => "Required options: --det_id --iteration --exp_id --class_id --det_type --detrend --input_uri",
     -exitval => 3,
 ) unless defined $det_id
@@ -38 +37 @@
     and defined $det_type
     and defined $detrend
-    and defined $input_uri
-    and defined $output_uri;
+    and defined $input_uri;
 
 # Recipes to use, as a function of the detrend type
@@ -53 +51 @@
     'dark' => '-dark',          # Specify the dark frame
     'flat' => '-flat',          # Specify the flat frame
-};
-
-# Prefix to add to filenames
-use constant PREFIX => {
-    'bias' => 'ob',             # Overscan only
-    'dark' => 'obd',            # Overscan and bias only
-    'flat' => 'obdf',           # Overscan, bias and dark only
 };
 
@@ -77 +68 @@
 my $detFlag = DETRENDS->{$det_type};
 die "Unrecognised detrend type: $det_type\n" if not defined $detFlag;
-# Prefix to use for filename
-my $prefix = PREFIX->{$det_type};
-die  "Unrecognised detrend type: $det_type\n" if not defined $prefix;
 
 ### Output file names --- must match camera configuration!
-my $outputRoot = $prefix . '_' . $output_uri;
-my $outputName = $outputRoot . '.' . $class_id . '.fit';
+my $outputRoot = $exp_id . '.detresid.' . $det_id . '.' . $iter; # Root name
+my $outputName = $outputRoot . '.' . $class_id . '.fits'; # Name for 
 my $outputStats = $outputRoot . '.' . $class_id . '.stats';
-my $bin1Name = $outputRoot . '.' . $class_id . '.b1.fit';
-my $bin2Name =  $outputRoot . '.' . $class_id . '.b2.fit';
+my $bin1Name = $outputRoot . '.' . $class_id . '.b1.fits';
+my $bin2Name =  $outputRoot . '.' . $class_id . '.b2.fits';
 
 # Run ppImage
@@ -96 +84 @@
     die "Unable to perform ppImage on $input_uri: $error_code\n" if not $success;
     die "Couldn't find expected output file: $outputName\n" if not -f $outputName;
+    die "Couldn't find expected output file: $outputStats\n" if not -f $outputStats;
     die "Couldn't find expected output file: $bin1Name\n" if not -f $bin1Name;
     die "Couldn't find expected output file: $bin2Name\n" if not -f $bin2Name;
@@ -104 +93 @@
 {
     my $statsFile;              # File handle
-    open $statsFile, "$outputStats" or die "Can't open statistics file $outputStats: $!\n";
+    open $statsFile, $outputStats or die "Can't open statistics file $outputStats: $!\n";
     my @contents = <$statsFile>; # Contents of file
     close $statsFile;
@@ -134 +123 @@
 }
 
-unlink "$output_uri.stats" if DELETE_STATS;
+unlink $outputStats if DELETE_STATS;
 
 __END__