如何使用Perl的App::Cmd创建应用程序级选项？

Question

从 FMc更新

我在这个问题上悬赏悬赏，因为我对同样的问题感到困惑。要重新表述这个问题，您如何实现应用程序级选项(适用于整个程序，script.pl)，而不是应用于单个命令的选项(本例中为search)。

原始问题

如何使用App::Cmd创建这样的接口

script.pl --config <file> search --options args

我能做到：

./script.pl search --options args
./script.pl search args
./script.pl search --options

我试图实现的是获得一个配置文件的选项，如下所示：

./script.pl --config file.conf search --options args

我已经看过cpan上的应用程序：：Cmd：：教程了，但到目前为止，我还没有任何运气让它开始工作。

Answer 1

您可以在App::Cmd中指定全局选项，如下所示。我们需要三个文件：

script.pl

use Tool;
Tool->run;

Tool.pm

package Tool;
use strict; use warnings;
use base 'App::Cmd';

sub global_opt_spec {
    ['config=s' => "Specify configuration file"];
}

1;

和Tool/Command/search.pm

package Tool::Command::search;
use strict; use warnings;
use base 'App::Cmd::Command';

sub opt_spec {
    ["option" => "switch on something"],
}

sub execute {
    my ($self, $opt, $args) = @_;

    warn "Running some action\n";
    warn 'Config file = ' . $self->app->global_options->{config}, "\n";
    warn 'Option      = ' . $opt->{option}, "\n";
}

1;

该示例演示如何定义全局选项并从search操作中访问它。