Perl 教程 之 Perl CGI编程 5

Perl CGI编程

什么是CGI

CGI 目前由NCSA维护，NCSA定义CGI如下：

CGI(Common Gateway Interface),通用网关接口,它是一段程序,运行在服务器上如：HTTP服务器，提供同客户端HTML页面的接口。

文件下载

如果我们想通过 Perl CGI 实现文件下载，需要设置不同的头部信息，如下所示：

实例

!/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");
}