use strict; use warnings; use Getopt::Declare; # all reference variable names declared above this line my $option_spec = qq{ Version: $VERSION Description: $SCRIPT_NAME reads a related set of Agilent ".dlog" files and generates the equivalent set of Genesis input files. Options: -$SPLIT_MAP_FILE_PARM <$SPLIT_MAP_FILE_STRING> Name of the split map file (no default) <${INPUT_FILE_OPT}:if>... One or more input files to process (wildcards may be used) [required] -$FORCE_OUTPUT_OPT Overwrite existing output files (default is to abort when an existing output file is encountered) -$OUTPUT_DIR_OPT <$OUTPUT_DIR_PARM> Put output files in this directory, create the directory if it doesn't exist (default is current directory) -$OUTPUT_PREFIX_OPT Prefix for naming all output files (default: $OUTPUT_PREFIX_DEFAULT) -$OUTPUT_SUFFIX_OPT Sufffix for naming all output files (default: $OUTPUT_SUFFIX_DEFAULT) -$VERBOSE_OPT Enable verbose info Example: Run $SCRIPT_NAME with split map RV900_split_map, verbose info, and use output prefix "RV900", and process all *.dlog files in the current directory: $SCRIPT_NAME -$SPLIT_MAP_FILE_PARM RV900_split_map -$OUTPUT_PREFIX_OPT RV900 -$VERBOSE_OPT *.dlog } my $options = Getopt::Declare->new( $option_spec ) or die "\n**** Error processing command line options, terminating $SCRIPT_NAME\n";