Perl GetOptions 模块答案

【问题标题】：Perl GetOptions modulePerl GetOptions 模块
【发布时间】：2013-06-25 19:29:14
【问题描述】：

我有一个脚本，它从 CLI 中获取 3 个输入变量并将其分别插入到 3 个变量中：

GetOptions("old_path=s" => \$old_path,
       "var=s"      => \$var,
       "new_path=s" => \$new_path,
       "log_path=s" => \$log_path)
or die ("Error in input variables\n");e

有没有一种方法可以添加子例程或任何其他 GetOptions 参数来解释如何提供输入变量。如果有任何错误，请纠正我。谢谢。

【问题讨论】：

标签： perl getopt-long

【解决方案1】：

Perl 中的标准方法是按照Getopt::Long 中的建议使用Pod::Usage。完整的例子见Documentation and help texts

【讨论】：

【解决方案2】：

听起来您正在寻找Getopt::Long::Descriptive。

【讨论】：

【解决方案3】：

试试这个，我们可以用 print 语句定义 HelpMessage 子例程我们想要显示的命令帮助，

    GetOptions("old_path=s" => \$old_path,
               "var=s"      => \$var,
               "new_path=s" => \$new_path,
               "log_path=s" => \$log_path,
                "help" => sub { HelpMessage() })
                 or die ("Error in input variables\n");

【讨论】：

感谢您的意见。但是在上面的行中进行了一些更正：“help” => sub { HelpMessage() } 将是“help” => \&Helpmessage..
两者都可以，我们可以在perl中以两种方式调用子程序，忘记更新分数:)