perl - 在 HTTP 文件传输中，如何设置资源的名称和类型？

Question

我正在 Perl 中构建一个代理，检查是否允许用户访问特定文件，如果允许，则将该文件返回给用户。用户通过调用以下形式的 URL 来访问文件:

http://www.example.com/products?id=1234

如果用户被授权访问该文件，它应该以正确的名称和文件类型返回给用户。这是我目前用来执行此操作的代码，但似乎无法正常工作:

my $file = "/path/to/file.tar.gz";
open FILE,qq|<$file| || die!;
print $cgi->header('application/x-gzip');
print <FILE>;
close FILE;

我确信我忽略了一些简单的事情，但我如何指定返回文件的名称并确保用户的浏览器将其视为正确的文件类型？明确地说，我不希望用户能够直接访问服务器上的文件，而是希望 Perl 脚本读入，然后将文件返回给用户。

Answer 1

你可以设置一个Content-disposition header

Content-disposition: attachment; filename=fname.ext