Changeset 9004 for trunk/ippScripts/scripts/detrend_apply_norm.pl
- Timestamp:
- Sep 27, 2006, 9:35:47 AM (20 years ago)
- File:
-
- 1 edited
-
trunk/ippScripts/scripts/detrend_apply_norm.pl (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/ippScripts/scripts/detrend_apply_norm.pl
r8976 r9004 5 5 6 6 use IPC::Cmd qw( can_run run ); 7 use PS::IPP::Metadata::Config;8 use PS::IPP::Metadata::List qw( parse_md_list );9 7 use Data::Dumper; 10 8 … … 18 16 $value, # Value to multiple (for normalisation) 19 17 $input, # Input file 20 $output # Output file 18 $camera, # Camera 19 $detType # Detrend type 21 20 ); 22 21 GetOptions( … … 26 25 'value|v=s' => \$value, 27 26 'input_uri|u=s' => \$input, 28 'output_uri|o=s' => \$output, 27 'camera|c=s' => \$camera, 28 'det_type|t=s' => \$detType 29 29 ) or pod2usage( 2 ); 30 30 31 31 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV; 32 pod2usage( -msg => "Required options: --det_id --iteration --class_id --value --input_uri -- output_uri",32 pod2usage( -msg => "Required options: --det_id --iteration --class_id --value --input_uri --camera --det_type", 33 33 -exitval => 3, 34 34 ) unless defined $detId 35 and defined $iter 36 and defined $classId 37 and defined $value 38 and defined $input 39 and defined $output; 40 35 and defined $iter 36 and defined $classId 37 and defined $value 38 and defined $input 39 and defined $camera 40 and defined $detType; 41 41 42 42 43 # Look for programs we need … … 46 47 die "Can't find required tools.\n" if $missing_tools; 47 48 48 my $mdcParser = PS::IPP::Metadata::Config->new; # Parser for metadata config files 49 # Output name 50 my $output = $camera . '.' . $detType . '.norm.' . $detId . '.' . $iter . '.' . $classId . '.fits'; 49 51 50 52 # Run ppArith
Note:
See TracChangeset
for help on using the changeset viewer.
