如何在Perl脚本的末尾添加多个POD？

StackOverflow https://stackoverflow.com/questions/4743664

  •  13-10-2019
  •  | 
  •  

题

我正在使用Perl文档中发现的有关如何使用的教程 getopt :: long 在脚本中。在那里，它显示了如何使用 pod ::用法 然后必须将所有内容输入子例程之类的东西。无论如何，在示例中，他们都有这个；

    GetOptions('help|?' => \$help, 'b|backup' => \&backup, d|discover => \&discover, man => \$man) or pod2usage(2);
pod2usage(1) if $help;
pod2usage(-exitstatus => 0, -verbose => 2) if $man;

我添加了一些自己的论点。

我得到了如何参考文档的第一部分。但是我如何指定第二部分 pod2usage(2)?

当我在 =cut 在第1节的末尾，当我尝试将其显示时，我会遇到命令提示符，就像它进入，然后在没有显示该部分的情况下出现。难道我做错了什么？

有帮助吗？

解决方案

您不需要“多个豆荚”。

pod2usage, ，当被称为AS时，例如 pod2usage(1), ，这里1表示退出状态，并暗示详细级别为1，因此它将打印 SYNOPSIS, ，以及标题为 OPTIONS, ARGUMENTS 或者 OPTIONS AND ARGUMENTS

当被称为 pod2usage(-exitval => 0, -verbose => 2), ，它将在您的文本寻呼机中打印整个POD（与什么相同） perldoc yourscriptname.pl 会这样）并退出 0. 。 （请注意是 -exitval 并不是 -exitstatus).

它描述了 Pod::Usage 文档 这里, ，正如所描述的。

您可能会找到可选的 -sections 参数为 pod2usage 对您所描述的内容有用，与 -verbose => 1, ，选择您希望显示的内容。

许可以下： CC-BY-SA 和 归因
不隶属于 StackOverflow
scroll top