Changeset 12576 for trunk/ippScripts/scripts/detrend_process_exp.pl
- Timestamp:
- Mar 23, 2007, 2:31:35 PM (19 years ago)
- File:
-
- 1 edited
-
trunk/ippScripts/scripts/detrend_process_exp.pl (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/ippScripts/scripts/detrend_process_exp.pl
r12421 r12576 33 33 use Pod::Usage qw( pod2usage ); 34 34 35 my ($det_id, $ exp_tag, $camera, $dbname, $workdir, $no_update, $no_op);35 my ($det_id, $det_type, $exp_tag, $camera, $dbname, $workdir, $no_update, $no_op); 36 36 GetOptions( 37 37 'det_id|d=s' => \$det_id, 38 'det_type|t=s' => \$det_type, 38 39 'exp_tag|e=s' => \$exp_tag, 39 40 'camera|c=s' => \$camera, … … 46 47 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV; 47 48 pod2usage( 48 -msg => "Required options: --det_id -- exp_tag --camera",49 -msg => "Required options: --det_id --det_type --exp_tag --camera", 49 50 -exitval => 3, 50 51 ) unless defined $det_id 51 and defined $exp_tag, 52 and defined $det_type 53 and defined $exp_tag 52 54 and defined $camera; 53 55
Note:
See TracChangeset
for help on using the changeset viewer.
