FM / examples

/usr/share/doc/perl-Getopt-Long/examples/

/usr/share/doc/perl-Getopt-Long/examples

Name	Size	Mode	Actions
parsetime.pl	1218	0644	edit dl rm
README	322	0644	edit dl rm
skel1.pl	2018	0644	edit dl rm
skel2.pl	2617	0644	edit dl rm
skel3.pl	2584	0644	edit dl rm
skel4.pl	2821	0644	edit dl rm

Edit: /usr/share/doc/perl-Getopt-Long/examples/skel4.pl (2821B)

#!/usr/bin/perl

# Skeleton for an application using Getopt::Long.

# Author          : Johan Vromans
# Created On      : Tue Sep 15 15:59:04 1992
# Last Modified By: Johan Vromans
# Last Modified On: Thu Jul  4 14:43:40 2013
# Update Count    : 84
# Status          : Unknown, Use with caution!

################ Common stuff ################

use strict;
use warnings;

################ Setup  ################

# Process command line options, config files, and such.
my $options = app_setup();

################ Presets ################

$options->{trace} = 1 if $options->{debug} || $options->{test};

################ Activate ################

main($options);

################ The Process ################

sub main {
    my ($options) = @_;
    use Data::Dumper;
    print Dumper($options);
}

################ Options and Configuration ################

use Getopt::Long 2.13;

# Package name.
my $my_package;
# Program name and version.
my ($my_name, $my_version);

sub app_setup {
    my $help = 0;		# handled locally
    my $ident = 0;		# handled locally

# Package name.
    $my_package = 'Sciurix';
    # Program name and version.
    ($my_name, $my_version) = qw( MyProg 0.01 );

my $options =
      {
       verbose		=> 0,		# verbose processing
       ### ADD OPTIONS HERE ###

# Development options (not shown with -help).
       debug		=> 0,		# debugging
       trace		=> 0,		# trace (show process)
       test		=> 0,		# test mode

# Service.
       _package		=> $my_package,
       _name		=> $my_name,
       _version		=> $my_version,
       _stdin		=> \*STDIN,
       _stdout		=> \*STDOUT,
       _stderr		=> \*STDERR,
       _argv		=> [ @ARGV ],
      };

# Return defaults if no options to process.
    return $options unless @ARGV;

# Sorry, layout is a bit ugly...
    if ( !GetOptions
	 ($options,

### ADD OPTIONS HERE ###

# Configuration handling.
	  'config=s'		=> sub { app_config($options, $_[0], $_[1]) },

# Standard options.
	  'ident'		=> \$ident,
	  'help|?'		=> \$help,
	  'verbose',
	  'trace',
	  'debug',
	 ) )
    {
	app_usage(2);
    }
    app_usage(0) if $help;
    app_ident() if $ident;

$options;
}

sub app_ident {
    print ("This is $my_package [$my_name $my_version]\n");
}

sub app_usage {
    my ($exit) = @_;
    select \*STDERR if $exit;
    app_ident();
    print <<EndOfUsage;
Usage: $0 [options] [file ...]
    ### ADD OPTIONS HERE ###
    --config=CFG	load options from config file
    --help		this message
    --ident		show identification
    --verbose		verbose information
EndOfUsage
    exit $exit if defined $exit;
}

sub app_config {
    my ($options, $optname, $config) = @_;
    die("$config: $!\n") unless -e $config;
    push(@{$options->{_config}}, $config);

# Process config data, filling $options ...
}

cmd: