我有一个在 Apache 服务器上运行的 perl CGI 脚本。除其他外,该脚本应该显示一些从输入生成的 XML。使用 XML::Writer 模块,我创建了一个包含正确 XML 的字符串标量,但我似乎无法弄清楚如何将其发布回浏览器。目前我的功能是这样的:
sub display_xml {
# input variables here
my $output = '';
my $writer = XML::Writer->new(
OUTPUT=>\$output,
DATA_MODE => 1,
DATA_INDENT =>1
};
$writer->xmlDecl('UTF-8');
$writer->startTag('response');
#omitted for brevity
$writer->endTag('response');
$writer->end();
}
谁能帮我这个?打印$output
到 STDOUT 不起作用,我在 CGI.pm 中没有看到任何功能来执行此操作(print $cgi->header('text/xml');
有效,但我不知道如何打印正文)。