使用Perl引发“文件下载”对话框
有时，您希望提供一个选项，使用户单击链接，该链接将向用户弹出“文件下载”对话框，而不显示实际内容。这非常简单，可以使用PerlScript通过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");
}热门推荐
10 香港老妈结婚祝福语简短
11 毕业立体贺卡祝福语简短
12 简短新年年会祝福语
13 评论小品祝福语大全简短
14 恭喜师兄结婚祝福语简短
15 员工集体辞职祝福语简短
16 高中新生祝福语 简短
17 装修祝福语男生搞笑简短
18 生日开业蛋糕祝福语简短