减小字体
增大字体- ·上一篇文章：Perl 数据库连接
- ·下一篇文章：Perl 包和模块
Perl CGI编程
Perl CGI编程什么是CGICGI 目前由NCSA维护，NCSA定义CGI如下：CGI(Common Gateway Interface),通用网关接口,它是一段程序,运行在服务器上如：HTTP服务器，提供同客户端HTML页面的接口。网页浏览为了更好的了解CGI是如何工作的，我们可以从在网页上点击一个链接或URL的流程：1、使用你的浏览器访问URL并连接到HTTP web 服务器。2、Web服务器接收到请求信息后会解析URL，并查找访问的文件在服务器上是否存在，如果存在返回文件的内容，否则返回错误信息。3、浏览器从服务器上接收信息，并显示接收的文件或者错误信息。CGI程序可以是Python脚本，PERL脚本，SHELL脚本，C或者C++程序等。CGI架构图Web服务器支持及配置在你进行CGI编程前，确保您的Web服务器支持CGI及已经配置了CGI的处理程序。Apache 支持CGI 配置：设置好CGI目录：ScriptAlias /cgi-bin/ /var/www/cgi-bin/所有的HTTP服务器执行CGI程序都保存在一个预先配置的目录。这个目录被称为CGI目录，并按照惯例，它被命名为/var/www/cgi-bin目录。CGI文件的扩展名为.cgi，Perl 也可以使用.pl扩展名。默认情况下，Linux服务器配置运行的cgi-bin目录中为/var/www。如果你想指定其他运行CGI脚本的目录，可以修改httpd.conf配置文件，如下所示：<Directory "/var/www/cgi-bin"> AllowOverride None Options +ExecCGI Order allow,deny Allow from all</Directory>在 AddHandler 中添加 .pl 后缀，这样我们就可以访问 .pl 结尾的 Perl 脚本文件：AddHandler cgi-script .cgi .pl .py第一个 CGI 程序以下我们创建一个 test.cgi 文件，代码如下所示：test.cgi 代码
#!/usr/bin/perlprint "Content-type:
text/html\r\n\r\n";print '<html>';print '<head>';print '<meta charset="utf-8">';print '<title>k88.net(k88.net)</title>';print '</head>';print '<body>';print '<h2>Hello Word! </h2>';print '<p>来自k88.net第一个 CGI 程序。</p>';print '</body>';print '</html>';1;然后通过浏览器打开 http:
//localhost/cgi-bin/test.cgi，输出结果如下：脚本第一行的输出内容"Content-type:
text/html\r\n\r\n"发送到浏览器并告知浏览器显示的内容类型为"text/html"。HTTP头部test.cgi文件内容中的" Content-type:
text/html"即为HTTP头部的一部分，它会发送给浏览器告诉浏览器文件的内容类型。HTTP头部的格式如下：HTTP 字段名:
字段内容例如：Content-type:
text/html\r\n\r\n以下表格介绍了CGI程序中HTTP头部经常使用的信息：头描述 Content-type:
请求的与实体对应的MIME信息。例如:
Content-type:
text/html Expires:
Date 响应过期的日期和时间 Location:
URL 用来重定向接收方到非请求URL的位置来完成请求或标识新的资源 Last-modified:
Date请求资源的最后修改时间 Content-length:
N请求的内容长度 Set-Cookie:
String 设置Http Cookie CGI环境变量所有的CGI程序都接收以下的环境变量，这些变量在CGI程序中发挥了重要的作用：变量名描述 CONTENT_TYPE这个环境变量的值指示所传递来的信息的MIME类型。目前，环境变量CONTENT_TYPE一般都是：application/x-www-form-urlencoded,他表示数据来自于HTML表单。 CONTENT_LENGTH如果服务器与CGI程序信息的传递方式是POST，这个环境变量即使从标准输入STDIN中可以读到的有效数据的字节数。这个环境变量在读取所输入的数据时必须使用。 HTTP_COOKIE客户机内的 COOKIE 内容。 HTTP_USER_AGENT提供包含了版本数或其他专有数据的客户浏览器信息。 PATH_INFO这个环境变量的值表示紧接在CGI程序名之后的其他路径信息。它常常作为CGI程序的参数出现。 QUERY_STRING如果服务器与CGI程序信息的传递方式是GET，这个环境变量的值即使所传递的信息。这个信息经跟在CGI程序名的后面，两者中间用一个问号'?'分隔。 REMOTE_ADDR这个环境变量的值是发送请求的客户机的IP地址，例如上面的192.168.1.67。这个值总是存在的。而且它是Web客户机需要提供给Web服务器的唯一标识，可以在CGI程序中用它来区分不同的Web客户机。 REMOTE_HOST这个环境变量的值包含发送CGI请求的客户机的主机名。如果不支持你想查询，则无需定义此环境变量。 REQUEST_METHOD提供脚本被调用的方法。对于使用 HTTP/1.0 协议的脚本，仅 GET 和 POST 有意义。 SCRIPT_FILENAMECGI脚本的完整路径 SCRIPT_NAMECGI脚本的的名称 SERVER_NAME这是你的 WEB 服务器的主机名、别名或IP地址。 SERVER_SOFTWARE这个环境变量的值包含了调用CGI程序的HTTP服务器的名称和版本号。例如，上面的值为Apache/2.2.14(Unix)以下是一个简单的CGI脚本输出CGI的环境变量：实例
#!/usr/bin/perlprint "Content-type:
text/html\n\n";print '<meta charset="utf-8">';print "<font size=+1>环境变量：</font>\n";foreach (sort keys %ENV){print "<b>$_</b>:
$ENV{$_}<br>\n";}1;文件下载如果我们想通过 Perl CGI 实现文件下载，需要设置不同的头部信息，如下所示：实例
#!/usr/bin/perl
# HTTP Headerprint "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");}使用GET方法传输数据GET方法发送编码后的用户信息到服务端，数据信息包含在请求页面的URL上，以"?"号分割, 如下所示：http:
//www.test.com/cgi-bin/test.cgi?key1=value1&key2=value2有关 GET 请求的其他一些注释：GET 请求可被缓存GET 请求保留在浏览器历史记录中GET 请求可被收藏为书签GET 请求不应在处理敏感数据时使用GET 请求有长度限制GET 请求只应当用于取回数据简单的url实例：GET方法以下是一个简单的URL，使用GET方法向test.cgi程序发送两个参数：/cgi-bin/test.cgi?name=k88.net&url=http:
//www.k88.net以下为test.cgi文件的代码：实例
#!/usr/bin/perllocal ($buffer, @pairs, $pair, $name, $value, %FORM);
# 读取文本信息$ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;if ($ENV{'REQUEST_METHOD'} eq "GET"){$buffer = $ENV{'QUERY_STRING'};}
# 读取 name/value 对信息@pairs = split(/&/, $buffer);foreach $pair (@pairs){($name, $value)
#!/usr/bin/perlprint "Content-type:
text/html\r\n\r\n";print '<html>';print '<head>';print '<meta charset="utf-8">';print '<title>k88.net(k88.net)</title>';print '</head>';print '<body>';print '<h2>Hello Word! </h2>';print '<p>来自k88.net第一个 CGI 程序。</p>';print '</body>';print '</html>';1;然后通过浏览器打开 http:
//localhost/cgi-bin/test.cgi，输出结果如下：脚本第一行的输出内容"Content-type:
text/html\r\n\r\n"发送到浏览器并告知浏览器显示的内容类型为"text/html"。HTTP头部test.cgi文件内容中的" Content-type:
text/html"即为HTTP头部的一部分，它会发送给浏览器告诉浏览器文件的内容类型。HTTP头部的格式如下：HTTP 字段名:
字段内容例如：Content-type:
text/html\r\n\r\n以下表格介绍了CGI程序中HTTP头部经常使用的信息：头描述 Content-type:
请求的与实体对应的MIME信息。例如:
Content-type:
text/html Expires:
Date 响应过期的日期和时间 Location:
URL 用来重定向接收方到非请求URL的位置来完成请求或标识新的资源 Last-modified:
Date请求资源的最后修改时间 Content-length:
N请求的内容长度 Set-Cookie:
String 设置Http Cookie CGI环境变量所有的CGI程序都接收以下的环境变量，这些变量在CGI程序中发挥了重要的作用：变量名描述 CONTENT_TYPE这个环境变量的值指示所传递来的信息的MIME类型。目前，环境变量CONTENT_TYPE一般都是：application/x-www-form-urlencoded,他表示数据来自于HTML表单。 CONTENT_LENGTH如果服务器与CGI程序信息的传递方式是POST，这个环境变量即使从标准输入STDIN中可以读到的有效数据的字节数。这个环境变量在读取所输入的数据时必须使用。 HTTP_COOKIE客户机内的 COOKIE 内容。 HTTP_USER_AGENT提供包含了版本数或其他专有数据的客户浏览器信息。 PATH_INFO这个环境变量的值表示紧接在CGI程序名之后的其他路径信息。它常常作为CGI程序的参数出现。 QUERY_STRING如果服务器与CGI程序信息的传递方式是GET，这个环境变量的值即使所传递的信息。这个信息经跟在CGI程序名的后面，两者中间用一个问号'?'分隔。 REMOTE_ADDR这个环境变量的值是发送请求的客户机的IP地址，例如上面的192.168.1.67。这个值总是存在的。而且它是Web客户机需要提供给Web服务器的唯一标识，可以在CGI程序中用它来区分不同的Web客户机。 REMOTE_HOST这个环境变量的值包含发送CGI请求的客户机的主机名。如果不支持你想查询，则无需定义此环境变量。 REQUEST_METHOD提供脚本被调用的方法。对于使用 HTTP/1.0 协议的脚本，仅 GET 和 POST 有意义。 SCRIPT_FILENAMECGI脚本的完整路径 SCRIPT_NAMECGI脚本的的名称 SERVER_NAME这是你的 WEB 服务器的主机名、别名或IP地址。 SERVER_SOFTWARE这个环境变量的值包含了调用CGI程序的HTTP服务器的名称和版本号。例如，上面的值为Apache/2.2.14(Unix)以下是一个简单的CGI脚本输出CGI的环境变量：实例
#!/usr/bin/perlprint "Content-type:
text/html\n\n";print '<meta charset="utf-8">';print "<font size=+1>环境变量：</font>\n";foreach (sort keys %ENV){print "<b>$_</b>:
$ENV{$_}<br>\n";}1;文件下载如果我们想通过 Perl CGI 实现文件下载，需要设置不同的头部信息，如下所示：实例
#!/usr/bin/perl
# HTTP Headerprint "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");}使用GET方法传输数据GET方法发送编码后的用户信息到服务端，数据信息包含在请求页面的URL上，以"?"号分割, 如下所示：http:
//www.test.com/cgi-bin/test.cgi?key1=value1&key2=value2有关 GET 请求的其他一些注释：GET 请求可被缓存GET 请求保留在浏览器历史记录中GET 请求可被收藏为书签GET 请求不应在处理敏感数据时使用GET 请求有长度限制GET 请求只应当用于取回数据简单的url实例：GET方法以下是一个简单的URL，使用GET方法向test.cgi程序发送两个参数：/cgi-bin/test.cgi?name=k88.net&url=http:
//www.k88.net以下为test.cgi文件的代码：实例
#!/usr/bin/perllocal ($buffer, @pairs, $pair, $name, $value, %FORM);
# 读取文本信息$ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;if ($ENV{'REQUEST_METHOD'} eq "GET"){$buffer = $ENV{'QUERY_STRING'};}
# 读取 name/value 对信息@pairs = split(/&/, $buffer);foreach $pair (@pairs){($name, $value)
Perl CGI编程
