2

如何使用 Getopt::Long 识别未知选项?

我尝试了'<>',但它没有按预期工作..考虑:

use Modern::Perl;
use Getopt::Long;

my $help='';
GetOptions ('help' => \$help,'<>' => \&usage);
usage() if $help;

usage() if @ARGV != 1;

my $fn=pop;

say "FileName: $fn";

sub usage {
    say "Unknown option: @_" if ( @_ );
    say "Usage: $0 <filename>";
    say "       $0 --help";
    say "";
    exit
}

Unknown option只想在有无法识别的选项时打印(在这种情况下,除此之外的任何选项--help)。但现在它认为文件名是一个无法识别的选项..

4

2 回答 2

4

usage如果GetOptions失败, 请调用您的函数。Getopt::Long将为您打印Unknown option(到 STDERR):

use Modern::Perl;
use Getopt::Long;

my $help='';
GetOptions ('help' => \$help) or usage();
usage() if $help;

usage() if @ARGV != 1;

my $fn=pop;

say "FileName: $fn";

sub usage {
    say "Usage: $0 <filename>";
    say "       $0 --help";
    say "";
    exit
}
于 2014-03-25T19:50:23.217 回答
4

开始使用 pod 文档作为核心模块Getopt::LongPod::Usage很好地协同工作。无需创建辅助方法即可获得您想要的行为:

这是一个示例脚本:

#!/usr/bin/perl

use File::Basename qw(basename);
use Getopt::Long qw(GetOptions);
use Pod::Usage qw(pod2usage);
use Readonly;
use version;

use strict;
use warnings;

Readonly my $VERSION => qv('0.0.1');
Readonly my $EXE => basename($0);

GetOptions(
    'version'   => \my $version,
    'usage'     => \my $usage,
    'help|?'    => \my $help,
    'man'       => \my $man,
) or pod2usage(-verbose => 0);
pod2usage(-verbose => 0) if $usage;
pod2usage(-verbose => 1) if $help;
pod2usage(-verbose => 2) if $man;

if ($version) {
    print "$EXE v$VERSION\n";
    exit;
}

## Check for File
pod2usage("$EXE: No filename specified.\n") unless @ARGV;

my $file = $ARGV[0];
pod2usage("$EXE: $file is a directory.\n") if -d $file;
pod2usage("$EXE: $file is not writable.\n") if !-w $file;


#....
print "Hello World\n";
#....

1;

__END__

=head1 NAME

hello.pl - Mirrors a script using pod

=head1 SYNOPSIS

./hello.pl [FILE]


=head1 OPTIONS

=over 4

=item --version

Print the version information

=item --usage

Print the usage line of this summary

=item --help

Print this summary.

=item --man

Print the complete manpage

=back


=head1 DESCRIPTION

Sometimes a programmer just enjoys a bit of documentation.
They can't help themselves, it makes them feel accomplished.

=head1 AUTHOR

Written by A Simple Coder

输出:

>perl hello.pl --test
Unknown option: test
Usage:
    ./hello.pl [FILE]
于 2014-03-25T20:55:09.677 回答