Perl에서 알 수없는 옵션 Getopt :: Long

Question

Getopt :: Long을 사용하여 알 수없는 옵션을 어떻게 인식 할 수 있습니까?

나는 '<>'시도하지만 expected..Consider 작동하지 않았다

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). 그러나 이제는 파일 이름이 인식 할 수없는 옵션이라고 생각합니다.

Answer 1

에 실패하면 usage 함수를 호출하십시오. Getopt::Long 당신을 위해 (STDERR에) Unknown option 인쇄됩니다 : 아주 잘 함께 핵심 모듈 Getopt::Long 및 Pod::Usage 작품으로 포드 문서를 사용

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 
} 

Answer 2

시작.

#!/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]