2

我正在尝试在 perl 中使用 Pod::Simple，但我没有得到任何输出。我可以使用 Pod::Simple::Text 获得输出。这是一个简短的测试程序：

use English;
use strict;
use Pod::Simple;
use Pod::Simple::Text;

my $pod_document = <<END_POD;
=pod

=head1 NAME

something

=head1 SYNOPSIS

something else

=cut
END_POD

my $pod_parser = new Pod::Simple();
my $pod_output;
if  ($ARGV[0] == 1) {$pod_parser->output_fh(*STDOUT);}
if  ($ARGV[0] == 2) {$pod_parser->output_fh(\*STDOUT);}
if  ($ARGV[0] == 3) {$pod_parser->output_fh(*STDOUT{IO});}
if  ($ARGV[0] == 4) {$pod_parser->output_string(\$pod_output);}
if  ($ARGV[0] == 5) {Pod::Simple::Text->filter(\$pod_document);}
$pod_parser->parse_string_document(\$pod_document);
if  ($ARGV[0] == 4) {print $pod_output;}

exit 0;

我将此 perl 代码放入名为 pod-test.pl 的文件中。如果我使用命令行参数 1、2、3 或 4 运行它，我不会得到任何输出。'perl pod-test.pl 5' 工作正常。

我应该如何调用 output_fh 或 output_string 方法？

4

1 回答 1

4

该Pod::Simple模块旨在用作您自己编写的 Pod 格式化程序子类的基类。子类提供了生成最终文档的方法，因此Pod::Simple如您所见，没有它根本不会产生任何输出。

如果您想要的只是简单的文本输出，那么已经为您编写了一个子类Pod::Simple::Text。你会像这样使用它

use strict;
use warnings;

use English;
use strict;
use Pod::Simple::Text;

my $pod_document = <<END_POD;
=pod

=head1 NAME

something

=head1 SYNOPSIS

something else

=cut
END_POD

my $pod_parser = Pod::Simple::Text->new;
$pod_parser->output_fh(*STDOUT);
$pod_parser->parse_string_document($pod_document);

输出

NAME

    something

SYNOPSIS

    something else
于 2014-05-29T04:28:48.547 回答