perl - Perl GetOptions 模块

Question

我有一个脚本，它从 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 参数来解释如何提供输入变量。如果有任何错误，请纠正我。谢谢你。

Answer 1

Perl 中的标准方法是使用Getopt::Long中推荐的Pod::Usage。文档和帮助文本中显示了一个完整的示例

Answer 2

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

Answer 3

试试这个，我们可以用打印语句定义 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");