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

Question

我正在使用在perl文档中找到的有关如何在脚本中使用Getopt :: Long的教程。 在那里显示了如何使用Pod :: Usage添加文档，而不是必须在子例程中键入所有内容。 无论如何，他们有这个例子。

    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)所述的第二部分？

当我在第1节末尾的=cut之后添加一个新节时，当我尝试显示它时，我遇到一个命令提示符，就像它进进出出而没有显示该节。 难道我做错了什么？

Answer 1

您不需要“多个POD”。

pod2usage ，当称为pod2usage(1) ，此处的1表示退出状态，详细级别隐含为1，因此它将打印SYNOPSIS以及标题为OPTIONS ， ARGUMENTS或OPTIONS AND ARGUMENTS任何节

当被称为pod2usage(-exitval => 0, -verbose => 2) ，它将在您的文本传呼器中打印整个POD（与perldoc yourscriptname.pl将执行的操作相同）并以0退出。 （请注意，它是-exitval而不是-exitstatus ）。

在此处 Pod::Usage文档中Pod::Usage进行了很好的说明，并且按说明进行操作。

您可能会发现可选的-sections参数pod2usage为你所描述什么是有用的，加上-verbose => 1 ，挑选你想显示的内容。