Heray-Was-Here
Server : Apache
System : Linux vps103298.mylogin.co 4.18.0-513.11.1.el8_9.x86_64 #1 SMP Wed Jan 17 02:00:40 EST 2024 x86_64
User : calvet ( 273824)
PHP Version : 7.4.33
Disable Function : NONE
Directory :  /usr/share/doc/perl-Getopt-ArgvFile/demos/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Current File : //usr/share/doc/perl-Getopt-ArgvFile/demos/defaultOptionFiles.pl

# This demo is part of the Getopt::ArgvFile distribution.
# It demonstrates how to use the module to automatically
# process default options files.
# Jochen Stenzel, 2007.


# pragmata
use strict;




# ===> load Getopt::Argv file to process option files,
#      .<script name> (.defaultOptionFiles.pl) in the scripts directory
#                     is processed automatically, if available,
#      .<script name> (.defaultOptionFiles.pl) in users home directory
#                     is processed automatically, if available,
#      @ARGV is adapted
use Getopt::ArgvFile default=>1,   # read .defaultOptionFiles.pl in script directory, if available;
                     home=>1;      # read .defaultOptionFiles.pl in users home directory, if available;


# load an options processing module of your choice
use Getopt::Long;

# process options
my %options;
GetOptions(
           \%options,

           'example',
           'demo',
          );

Hry