Changeset 8887 for trunk/ippScripts/scripts/detrend_calc_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_calc_norm.pl (modified) (1 diff)

trunk/ippScripts/scripts/detrend_calc_norm.pl

@@ -9 +9 @@
 use Data::Dumper;
 
+use Getopt::Long qw( GetOptions :config auto_help auto_version gnu_getopt );
+use Pod::Usage qw( pod2usage );
+
+
 use constant STATISTIC => 'bg'; # Background statistic to use from the database
 
+# Parse command-line arguments
+my ($detId,   # Detrend id
+    $iter      # Iteration
+    );
+GetOptions(
+        'det_id|d=s'    => \$detId,
+        'iteration|i=s' => \$iter,
+        ) or pod2usage( 2 );
 
-# Parse the command-line
-die "Calculate the detrend normalisations.\n\n" .
-    "Usage: $0 DET_ID ITER\n\n"
-    if scalar @ARGV != 2;
-my $detId = shift @ARGV;        # Detrend ID
-my $iter = shift @ARGV;         # Iteration
+pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
+pod2usage( -msg => "Required options --det_id --iteration",
+           -exitval => 3,
+         ) unless defined $detId
+              and defined $iter;
 
+
+use constant STATISTIC => 'bg'; # Background statistic to use from the database
 
 # Look for programs we need