Question

从FMc更新

我在这个问题上给予了赏金，因为我对同样的问题感到困惑。要重新解释这个问题，如何实现应用程序级选项（适用于整个程序的选项script.pl），而不是适用于单个命令的选项（本例中为search）。< / p>

原始问题

如何使用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上看过App::Cmd::Tutorial，但到目前为止我还没有运气好运。

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;

和工具/命令/ 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操作中访问它。

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

1 个答案: