#acupoftea - erp.alfadhel.net

dbfdg #acupoftea - erp.alfadhel.net

System	:	Linux cloud.alfadhel.net 4.18.0-553.44.1.el8_10.x86_64 #1 SMP Mon Mar 10 05:10:11 EDT 2025 x86_64
Software	:	Apache
Server	:	93.127.185.176
Domains	:	84 Domain
Permission	:	[ drwxr-xr-x ]
	:	/ usr / share / doc / perl-Getopt-Long / examples /

216.73.216.75

Home

File skel1.pl

#!/usr/bin/perl -w

# 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: Fri Jul  9 14:28:48 2010
# Update Count    : 43
# Status          : Unknown, Use with caution!

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

use strict;

# Package or program libraries, if appropriate.
# $LIBDIR = $ENV{'LIBDIR'} || '/usr/local/lib/sample';
# use lib qw($LIBDIR);
# require 'common.pl';

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

################ Command line parameters ################

use Getopt::Long 2.13;

# Command line options.
my $verbose = 0;		# verbose processing

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

# Process command line options.
app_options();

# Post-processing.
$trace |= ($debug || $test);

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

my $TMPDIR = $ENV{TMPDIR} || $ENV{TEMP} || '/usr/tmp';

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

exit 0;

################ Subroutines ################

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

# Process options, if any.
    # Make sure defaults are set before returning!
    return unless @ARGV > 0;

if ( !GetOptions(
		     'ident'	=> \$ident,
		     'verbose'	=> \$verbose,
		     'trace'	=> \$trace,
		     'help|?'	=> \$help,
		     'debug'	=> \$debug,
		    ) or $help )
    {
	app_usage(2);
    }
    app_ident() if $ident;
}

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

sub app_usage {
    my ($exit) = @_;
    app_ident();
    print STDERR <<EndOfUsage;
Usage: $0 [options] [file ...]
    -help		this message
    -ident		show identification
    -verbose		verbose information
EndOfUsage
    exit $exit if defined $exit && $exit != 0;
}

Name	Type	Size	Permission	Last Modified	Actions
.	DIR	-	drwxr-xr-x	2024-06-23 08:10:53
..	DIR	-	drwxr-xr-x	2024-06-23 08:10:53
README	text/plain	322 B	-rw-r--r--	2006-07-23 02:34:06
parsetime.pl	text/x-perl	1.19 KB	-rw-r--r--	2004-10-08 11:40:22
skel1.pl	text/x-perl	1.97 KB	-rw-r--r--	2011-04-19 07:07:03
skel2.pl	text/x-perl	2.56 KB	-rw-r--r--	2015-06-02 08:40:04
skel3.pl	text/x-perl	2.52 KB	-rw-r--r--	2010-07-09 12:30:13
skel4.pl	text/x-perl	2.75 KB	-rw-r--r--	2013-07-04 12:43:40

~ ACUPOFTEA - erp.alfadhel.net

Not Found

404

Not Found