Changeset 8887 for trunk/ippScripts/scripts/detrend_apply_norm.pl

Timestamp:

Sep 22, 2006, 11:45:02 AM (20 years ago)

Author:

Paul Price

Message:

Moving detrend_calc_norm.pl and detrend_apply_norm.pl to use GetOpt::Long

File:

• trunk/ippScripts/scripts/detrend_apply_norm.pl (modified) (1 diff)

trunk/ippScripts/scripts/detrend_apply_norm.pl

@@ -9 +9 @@
 use Data::Dumper;
 
+use Getopt::Long qw( GetOptions :config auto_help auto_version gnu_getopt );
+use Pod::Usage qw( pod2usage );
+
 # Parse the command-line
-die "Apply the detrend normalisations.\n\n" .
-    "Usage: $0 DET_ID ITER CLASS_ID MULTIPLICATION_VALUE INPUT OUTPUT\n\n"
-    if scalar @ARGV != 6;
-my $detId = shift @ARGV;        # Detrend ID
-my $iter = shift @ARGV;         # Iteration
-my $classId = shift @ARGV;      # Class ID
-my $value = shift @ARGV;        # Value to multiply
-my $input = shift @ARGV;        # Input file
-my $output = shift @ARGV;       # Output file
+my ($detId,                     # Detrend ID
+    $iter,                      # Iteration
+    $classId,                   # Class ID
+    $value,                     # Value to multiple (for normalisation)
+    $input,                     # Input file
+    $output                     # Output file
+    );
+GetOptions(
+    'det_id|d=s'        => \$detId,
+    'iteration|n=s'     => \$iter,
+    'class_id|i=s'      => \$classId,
+    'value|v=s'         => \$value,
+    'input_uri|u=s'     => \$input,
+    'output_uri|o=s'    => \$output,
+    ) or pod2usage( 2 );
+    
+pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
+pod2usage(     -msg => "Required options: --det_id --iteration --class_id --value --input_uri --output_uri",
+    -exitval => 3,
+    ) unless defined $detId
+        and defined $iter
+            and defined $classId
+                and defined $value
+                    and defined $input
+                        and defined $output;
+                        
 
 # Look for programs we need