Perl 如何将 zip 文件发送到浏览器以在 PSGI 中下载

Question

我开始看 PSGI，我知道应用程序的响应应该是一个数组
三个元素的引用，[代码，标题，正文]:

#!/usr/bin/perl

my $app = sub {
  my $env = shift;

  return [
    200,
    [ 'Content-type', 'text/plain' ],
    [ 'Hello world' ],
  ]
};

问题是如何将文件(例如 zip 或 pdf)发送到浏览器以供下载。

Answer 1

只需设置正确的标题和正文。

my $app = sub {
  my $env = shift;

  open my $zip_fh, '<', '/path/to/zip/file' or die $!;

  return [
    200,
    [ 'Content-type', 'application/zip' ], # Correct content-type
    $zip_fh, # Body can be a filehandle
  ]
};

您可能想尝试添加其他标题(特别是“内容处理”)。