Getopt :: Declare vs Getopt :: Long

Question

我的公司使用Getopt::Declare作为它的命令行选项解析器。我们的选择处理块的结构通常是这样的：

Readonly my $ARGS => Getopt::Declare->new(
    join("\n", 
     "[strict]", 
     "--engineacct <num:i>\tEngineaccount [required]", 
     "--outfile <outfile:of>\tOutput file [required]", 
     "--clicks <N:i>\tselect keywords with more than N clicks [required]", 
     "--infile <infile:if>\tInput file [required]", 
     "--pretend\tThis option not yet implemented. " 
     . "If specified, the script will not execute.", 
     "[ mutex: --clicks --infile ]", 
    ) 
) || exit(1); 

这是很多来看看......我尝试用here文档最喜欢的文件，使之成为简单一些用途：

#!/usr/bin/perl 
use strict; 
use warnings FATAL => 'all'; 

use Readonly; 

Readonly my $ARGS => Getopt::Declare->new(<<'EOPARAM'); 
    [strict] 
    --client <client:i> client number [required] 
    --clicks <clicks:i> click threshold (must be > 5) 
EOPARAM 

虽然我觉得这样更容易阅读，但出于某种原因，它不会识别我的任何论点。

perl test.pl --client 5 --clicks 2 

我得到无法识别的参数：

Error: unrecognizable argument ('--client') 
Error: unrecognizable argument ('154') 
Error: unrecognizable argument ('--clicks') 
Error: unrecognizable argument ('2') 

所以我想我有两个quesitons：

1. 已成功用于人用here文档Getopt的::声明？

2. 是Getopt :: Declare仍然是一个选项解析器的合理选项？相对于其他模块，如的Getopt ::龙

Answer 1

在原来的版本，你的字符串包含--clicks <N:i>后按Tab，然后select keywords with more than N clicks [required]。

在您的修订版本中，您的字符串具有空格而不是选项卡。

使用<<"EOPARAM"和“\t”而不是<<'EOPARAM'和“”。

>type x.pl 
use Getopt::Declare; 
Getopt::Declare->new(<<'EOPARAM'); 
    [strict] 
    --client <client:i> client number [required] 
    --clicks <clicks:i> click threshold (must be > 5) 
EOPARAM 

>perl x.pl --client 5 --clicks 2 
Error: unrecognizable argument ('--client') 
Error: unrecognizable argument ('5') 
Error: unrecognizable argument ('--clicks') 
Error: unrecognizable argument ('2') 

(try 'x.pl -help' for more information) 

>type x.pl 
use Getopt::Declare; 
Getopt::Declare->new(<<'EOPARAM'); 
    [strict] 
    --client <client:i>\tclient number [required] 
    --clicks <clicks:i>\tclick threshold (must be > 5) 
EOPARAM 

>perl x.pl --client 5 --clicks 2 
Error: unrecognizable argument ('--client') 
Error: unrecognizable argument ('5') 
Error: unrecognizable argument ('--clicks') 
Error: unrecognizable argument ('2') 

(try 'x.pl -help' for more information) 

>type x.pl 
use Getopt::Declare; 
Getopt::Declare->new(<<"EOPARAM"); 
    [strict] 
    --client <client:i>\tclient number [required] 
    --clicks <clicks:i>\tclick threshold (must be > 5) 
EOPARAM 

>perl x.pl --client 5 --clicks 2 

>