Server IP : 92.204.138.22 / Your IP : 3.131.38.22 Web Server : Apache System : Linux ns1009439.ip-92-204-138.us 4.18.0-553.8.1.el8_10.x86_64 #1 SMP Tue Jul 2 07:26:33 EDT 2024 x86_64 User : internationaljou ( 1019) PHP Version : 7.4.33 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/doc/perl-Getopt-Long/examples/ |
Upload File : |
#!/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:30:13 2010 # Update Count : 79 # Status : Unknown, Use with caution! ################ Common stuff ################ use strict; # Package name. my $my_package = 'Sciurix'; # Program name and version. my ($my_name, $my_version) = qw( MyProg 0.01 ); ################ Command line parameters ################ my $verbose = 0; # more verbosity # 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 ################ ################ Command Line Options ################ use Getopt::Long 2.34; # will enable help/version sub app_options { GetOptions(ident => \&app_ident, verbose => \$verbose, # application specific options go here # development options test => \$test, trace => \$trace, debug => \$debug) or Getopt::Long::HelpMessage(2); } sub app_ident { print STDOUT ("This is $my_package [$my_name $my_version]\n"); } __END__ =head1 NAME sample - skeleton for Getopt::Long applications =head1 SYNOPSIS sample [options] [file ...] Options: --ident show identification --help brief help message --verbose verbose information =head1 OPTIONS =over 8 =item B<--verbose> More verbose information. =item B<--version> Print a version identification to standard output and exits. =item B<--help> Print a brief help message to standard output and exits. =item B<--ident> Prints a program identification. =item I<file> Input file(s). =back =head1 DESCRIPTION B<This program> will read the given input file(s) and do someting useful with the contents thereof. =head1 AUTHOR Johan Vromans <jvromans@squirrel.nl> =head1 COPYRIGHT This programs is Copyright 2006,2003, Squirrel Consultancy. This program is free software; you can redistribute it and/or modify it under the terms of the Perl Artistic License or the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. =cut