使用 Perl 打开一个“文件下载”对话框

有时希望您可以提供一个选项，当用户点击链接时，会向用户弹出“文件下载”对话框，而不是显示实际内容。这是非常容易的，可以通过 Perl 脚本使用 HTTP 标头实现。

此 HTTP 标头将不同于上一部分中提到的标头。例如，如果您要使FileName 文件可以从给定链接下载，则其语法如下 −

#!/usr/bin/perl
# HTTP Header
print "Content-Type:application/octet-stream; name = \"FileName\"\r\n";
print "Content-Disposition: attachment; filename = \"FileName\"\r\n\n";

# Actual File Content will go hear.
open( FILE, "<FileName" );
while(read(FILE, $buffer, 100) ) {
   print("$buffer");
}

Mohd Mohtashim

更新于：2019 年 12 月 2 日

236 次观看

开启你的职业生涯

通过完成课程获得认证

开始