raiserle has asked for the wisdom of the Perl Monks concerning the following question:
Hi,
i've copy this code from Perlmonks.
file=perlmonks.pl
By#! /usr/bin/perl #use strict; #use warnings; use Getopt::Long; use Pod::Usage; &GetOptions( 'h|help' => \$opt_help, 'man' => sub{ pod2usage({-verbose=>2, -exitval=>0}); }, 'q|quiet' => \$opt_quiet, 'c|config=s' => \@opt_config, 'p|project=s' => \$opt_proj ) || pod2usage(1); if($opt_help){ print "help---------------\n"; pod2usage(1); } __END__ =head1 NAME perlmonks.pl - Test for http://perlmonks.org/?node_id=664898 =head1 SYNOPSIS perlmonks.pl [options] Options: -h, --help brief help message --man full documentation =cut
this is displayed:./perlmonks.pl -h
But, the verbose 2 is not working,help--------------- Usage: perlmonks.pl [options] Options: -h, --help brief help message --man full documentation
this is displayed:./perlmonks.pl -m
The complete source is shown. What do I have to do to correct the error? regards Henrik#! /usr/bin/perl #use strict; #use warnings; use Getopt::Long; use Pod::Usage; &GetOptions( 'h|help' => \$opt_help, 'man' => sub{ pod2usage({-verbose=>2, -exitval=>0}); }, 'q|quiet' => \$opt_quiet, 'c|config=s' => \@opt_config, 'p|project=s' => \$opt_proj ) || pod2usage(1); if($opt_help){ print "help---------------\n"; pod2usage(1); } __END__ =head1 NAME perlmonks.pl - Test for http://perlmonks.org/?node_id=664898 =head1 SYNOPSIS perlmonks.pl [options] Options: -h, --help brief help message --man full documentation =cut ./perlmonks.pl (END)
Back to
Seekers of Perl Wisdom