/usr/share/doc/libgetopt-argvfile-perl/examples/defaultOptionFiles.pl is in libgetopt-argvfile-perl 1.11-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | # 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',
);
|