如何使用 mod_perl 和 CGI​​::Application 提供临时文件下载？

Question

我的 Web 应用程序使用 CGI::Application 在 Apache mod_perl 上运行。我想提供生成文件的下载。过去（在我们使用 mod_perl 和 CGI​​::App 之前），我只是在生成 csv 文件时将其假脱机到 STDOUT。现在我正在寻求更多的改进 - 使用 Spreadsheet::WriteExcel 创建 Excel 电子表格 - 但我似乎无法从文件句柄中将其打印出来。

sub export_list {
  my $self = shift;

  binmode(STDOUT);
  my $str;
  open my $fh, '>', \$str;
  my $workbook = Spreadsheet::WriteExcel->new($fh);
  my $worksheet = $workbook->add_worksheet();

  $worksheet->write_col(0,0, ['some','data','here']);
  warn $str;
  return $str;
}

输出只是一个空白响应，警告也是空白。

我用来将电子表格写入文件句柄的方法几乎直接来自 文档，所以我认为问题是由于我的一些 CGI::App noobery 造成的。文档中针对文件句柄和 mod_perl 的建议方法也被证明是徒劳的。

我想我应该提到我正在 Windows 上运行，并且我当前的解决方法是创建一个文件并向用户提供指向该文件的链接。然而，这在清除目录、何时清除以及访问生成文件的身份验证方面带来了更多问题。

建议？严厉批评？

Answer 1

您不需要搞乱 STDOUT； CGI-App 应该在幕后为您正确处理这个问题。在尝试发送数据之前，您可能还需要关闭文件句柄。

不过，您似乎没有为 Excel 数据设置正确的内容类型。对于除 text/html 之外的任何内容，您需要手动设置。尝试这样的事情：

sub export_list {
    my $self = shift;

    my $str;
    open my $fh, '>', \$str or die "Can't open to var: $!";
    my $workbook = Spreadsheet::WriteExcel->new($fh);
    my $worksheet = $workbook->add_worksheet();

    $worksheet->write_col(0,0, ['some','data','here']);

    $workbook->close;
    close $fh;

    warn $str;

    $self->header_add( -type => 'application/vnd.ms-excel' );
    return $str;

}

您可能还对 CGI::Application::Plugin::Stream

Answer 2

您不应该在内存中创建整个电子表格，而应该将其写入文件，并在完成后将其流式传输（使用 CGI::Application::Plugin::Stream 在这里有帮助，但您仍然需要事后清理它，但实际上每个网络应用程序都应该有一个临时目录定期被清理）或在创建时打印它（这意味着制作 FH STDIN ，这在 mod_perl 下可能会更棘手，也可能不会）。

然后记住完成后关闭工作簿。

Answer 3

您想要关闭工作簿。同时关闭文件句柄：

warn "length 1=".length($str);
$workbook->close();
close($fh) or die "error on close: $!";
warn "length 2=".length($str);

length 1=0 at wx.pl line 16.
length 2=5632 at wx.pl line 19.