Perlスクリプトの最後に複数のポッドを追加するにはどうすればよいですか?
-
13-10-2019 - |
質問
私はPerlのドキュメントにあるチュートリアルを使用して使用していました。 getopt :: long スクリプトで。そこには、使用を使用してドキュメントを追加する方法が示されています ポッド::使用 むしろ、すべてをサブルーチンか何かに入力する必要があります。とにかく例では、彼らはこれを持っています。
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;
私は自分の議論のいくつかを追加しました。
ドキュメントの最初のセクションを参照する方法を入手します。しかし、述べられている2番目のセクションを参照するにはどうすればよいですか pod2usage(2)
?
後に新しいセクションを追加するとき =cut
セクション1の終わりに、それを表示しようとすると、コマンドプロンプトに会いました。私は何か間違ったことをしていますか?
解決
「複数のポッド」は必要ありません。
pod2usage
, 、as、例えば呼ばれると pod2usage(1)
, 、ここでは、1は出口ステータスを表し、冗長レベルは1として暗示されるため、 SYNOPSIS
, 、およびタイトルのセクション OPTIONS
, ARGUMENTS
また OPTIONS AND ARGUMENTS
asと呼ばれるとき pod2usage(-exitval => 0, -verbose => 2)
, 、それはあなたのテキストページャー内で、ポッドの全体を印刷します(何と同一 perldoc yourscriptname.pl
(します)と終了します 0
. 。 (注意してください -exitval
そしてそうではありません -exitstatus
).
それはよく説明されています Pod::Usage
ドキュメンテーション ここ, 、および説明されているように機能します。
オプションを見つけることができます -sections
パラメーターに pod2usage
あなたが説明したものと組み合わせたものに役立ちます -verbose => 1
, 、表示したいものを選択して選択します。