Perl Catalyst：创建并强制下载PDF

Question

我有一个带Action的控制器（'RenderView'）方法，可以使用PDF :: API2即时创建PDF。

我不想保存PDF，相反，我想强制下载对话框。像这样的伪代码：

... create pdf on-the-fly ...
$pdf->saveas($fullPathToFilename); # is there a way to avoid this?
binmode STDOUT;
$c->res->content_type('application/pdf');
$c->res->header( 'Content-Disposition', qq[attachment;filename='$shortFilename'] );
$c->res->header( 'someOtherHeaders' );
... here, stream binary content to client ?? ...
return $self->status_ok( $c, entity => 'PDF' );

我想我可以反复测试创建的文件的存在，并在保存和发现时提供它。这对我来说似乎非常克制。

任何人都有更好的解决方案吗？

谢谢， 诺亚

Answer 1

来自documentation：

$string = $pdf->stringify();

将文档作为字符串返回，并从内存中删除对象结构。