Changeset 13937 for trunk/ippScripts/scripts/chip_imfile.pl
- Timestamp:
- Jun 21, 2007, 2:10:11 PM (19 years ago)
- File:
-
- 1 edited
-
trunk/ippScripts/scripts/chip_imfile.pl (modified) (6 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/ippScripts/scripts/chip_imfile.pl
r13926 r13937 29 29 use Pod::Usage qw( pod2usage ); 30 30 31 my $RECIPE = 'PPIMAGE_OBDSFRA'; # Recipe to use32 33 31 # Parse the command-line arguments 34 32 my ($exp_id, # Exposure identifier … … 36 34 $class_id, # Class identifier 37 35 $input, # Input FITS file 38 $recipe, # Recipe to use39 36 $camera, # Camera 40 37 $dbname, # Database name 41 38 $workdir, # Working directory, for output files 39 $reduction, # Reduction class 42 40 $no_update, # Don't update the database? 43 41 $no_op, # Don't do any operations? … … 48 46 'class_id=s' => \$class_id, 49 47 'uri|u=s' => \$input, 50 'recipe=s' => \$recipe,51 48 'camera|c=s' => \$camera, 52 49 'dbname|d=s' => \$dbname, # Database name 53 50 'workdir|w=s' => \$workdir, 51 'reduction=s' => \$reduction, 54 52 'no-update' => \$no_update, 55 53 'no-op' => \$no_op, … … 67 65 68 66 $ipprc->define_camera($camera); 67 $reduction = 'DEFAULT' unless defined $reduction; 68 my $recipe = $ipprc->reduction($reduction, 'CHIP'); # Recipe to use 69 69 70 70 # Look for programs we need … … 97 97 98 98 my $command = "$ppImage -file $input $outputRoot"; 99 $command .= " -recipe PPIMAGE $ RECIPE";99 $command .= " -recipe PPIMAGE $recipe"; 100 100 $command .= " -recipe PPSTATS CHIPSTATS"; 101 101 $command .= " -stats $outputStats"; # Command to run ppImage … … 130 130 my $bg_stdev = ($stats->bg_stdev() or 'NAN'); 131 131 my $bg_mean_stdev = ($stats->bg_mean_stdev() or 'NAN'); 132 my $fringe_0 = (${$stats->fringe() [0]}or 'NAN');133 my $fringe_1 = (${$stats->fringe_err() [0]}or 'NAN');132 my $fringe_0 = (${$stats->fringe()}[0] or 'NAN'); 133 my $fringe_1 = (${$stats->fringe_err()}[0] or 'NAN'); 134 134 my $fringe_2 = 'NAN'; 135 135
Note:
See TracChangeset
for help on using the changeset viewer.
