课程表

Perl课程

工具箱
速查手册

Perl CGI编程

当前位置：免费教程 » 程序设计 » Perl

什么是CGI

CGI 目前由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架构图

cgiarch

Web服务器支持及配置

在你进行CGI编程前，确保您的Web服务器支持CGI及已经配置了CGI的处理程序。

Apache 支持CGI 配置：

设置好CGI目录：

  1. 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配置文件，如下所示：

  1. <Directory "/var/www/cgi-bin">
  2.    AllowOverride None
  3.    Options +ExecCGI
  4.    Order allow,deny
  5.    Allow from all
  6. </Directory>

在 AddHandler 中添加 .pl 后缀，这样我们就可以访问 .pl 结尾的 Perl 脚本文件：

  1. AddHandler cgi-script .cgi .pl .py

第一个 CGI 程序

以下我们创建一个 test.cgi 文件，代码如下所示：

  1. #!/usr/bin/perl
  2.  
  3. print "Content-type:text/html\r\n\r\n";
  4. print '<html>';
  5. print '<head>';
  6. print '<meta charset="utf-8">';
  7. print '<title>W3xue教程(w3xue.com)</title>';
  8. print '</head>';
  9. print '<body>';
  10. print '<h2>Hello Word! </h2>';
  11. print '<p>来自W3xue教程第一个 CGI 程序。</p>';
  12. print '</body>';
  13. print '</html>';
  14.  
  15. 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头部的格式如下：

  1. HTTP 字段名: 字段内容

例如：

  1. 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的环境变量：

  1. #!/usr/bin/perl
  2.  
  3. print "Content-type: text/html\n\n";
  4. print '<meta charset="utf-8">';
  5. print "<font size=+1>环境变量：</font>\n";
  6. foreach (sort keys %ENV)
  7. {
  8.   print "<b>$_</b>: $ENV{$_}<br>\n";
  9. }
  10.  
  11. 1;

文件下载

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

  1. #!/usr/bin/perl
  2.  
  3. # HTTP Header
  4. print "Content-Type:application/octet-stream; name=\"FileName\"\r\n";
  5. print "Content-Disposition: attachment; filename=\"FileName\"\r\n\n";
  6.  
  7. # Actual File Content will go hear.
  8. open( FILE, "<FileName" );
  9. while(read(FILE, $buffer, 100) )
  10. {
  11.    print("$buffer");
  12. }

使用GET方法传输数据

GET方法发送编码后的用户信息到服务端，数据信息包含在请求页面的URL上，以"?"号分割, 如下所示：

  1. 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程序发送两个参数：

  1. /cgi-bin/test.cgi?name=W3xue教程&url=//www.w3xue.com

以下为test.cgi文件的代码：

  1. #!/usr/bin/perl
  2.  
  3. local ($buffer, @pairs, $pair, $name, $value, %FORM);
  4. # 读取文本信息
  5. $ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
  6. if ($ENV{'REQUEST_METHOD'} eq "GET")
  7. {
  8.    $buffer = $ENV{'QUERY_STRING'};
  9. }
  10. # 读取 name/value 对信息
  11. @pairs = split(/&/, $buffer);
  12. foreach $pair (@pairs)
  13. {
  14.    ($name, $value) = split(/=/, $pair);
  15.    $value =~ tr/+/ /;
  16.    $value =~ s/%(..)/pack("C", hex($1))/eg;
  17.    $FORM{$name} = $value;
  18. }
  19. $name = $FORM{name};
  20. $url  = $FORM{url};
  21.  
  22. print "Content-type:text/html\r\n\r\n";
  23. print "<html>";
  24. print "<head>";
  25. print '<meta charset="utf-8">';
  26. print '<title>W3xue教程(w3xue.com)</title>';
  27. print "</head>";
  28. print "<body>";
  29. print "<h2>$name网址：$url</h2>";
  30. print "</body>";
  31. print "</html>";
  32.  
  33. 1;

查看浏览器，输出结果如下：

简单的表单实例：GET方法

以下是一个通过HTML的表单使用GET方法向服务器发送两个数据，提交的服务器脚本同样是test.cgi文件，test.html 代码如下：

  1. <!DOCTYPE html>
  2. <html>
  3. <head>
  4. <meta charset="utf-8">
  5. <title>W3xue教程(w3xue.com)</title>
  6. </head>
  7. <body>
  8. <form action="/cgi-bin/test.cgi" method="get">
  9. 站点名称: <input type="text" name="name">  <br />
  10.  
  11. 站点 URL: <input type="text" name="url" />
  12. <input type="submit" value="提交" />
  13. </form>
  14. </body>
  15. </html>

浏览器中，执行效果如下所示：

使用POST方法传递数据

使用POST方法向服务器传递数据是更安全可靠的，像一些敏感信息如用户密码等需要使用POST传输数据。

以下同样是 test.cgi ，它也可以处理浏览器提交的POST表单数据:

  1. #!/usr/bin/perl
  2.  
  3. local ($buffer, @pairs, $pair, $name, $value, %FORM);
  4. # 读取文本信息
  5. $ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
  6. if ($ENV{'REQUEST_METHOD'} eq "POST")
  7. {
  8.    read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
  9. }else {
  10.    $buffer = $ENV{'QUERY_STRING'};
  11. }
  12. # 读取 name/value 对信息
  13. @pairs = split(/&/, $buffer);
  14. foreach $pair (@pairs)
  15. {
  16.    ($name, $value) = split(/=/, $pair);
  17.    $value =~ tr/+/ /;
  18.    $value =~ s/%(..)/pack("C", hex($1))/eg;
  19.    $FORM{$name} = $value;
  20. }
  21. $name = $FORM{name};
  22. $url  = $FORM{url};
  23.  
  24. print "Content-type:text/html\r\n\r\n";
  25. print "<html>";
  26. print "<head>";
  27. print '<meta charset="utf-8">';
  28. print '<title>W3xue教程(w3xue.com)</title>';
  29. print "</head>";
  30. print "<body>";
  31. print "<h2>$name网址：$url</h2>";
  32. print "</body>";
  33. print "</html>";
  34.  
  35. 1;

以下是一个通过HTML的表单使用GET方法向服务器发送两个数据，提交的服务器脚本同样是test.cgi文件，test.html 代码如下：

  1. <!DOCTYPE html>
  2. <html>
  3. <head>
  4. <meta charset="utf-8">
  5. <title>W3xue教程(w3xue.com)</title>
  6. </head>
  7. <body>
  8. <form action="/cgi-bin/test.cgi" method="post">
  9. 站点名称: <input type="text" name="name">  <br />
  10.  
  11. 站点 URL: <input type="text" name="url" />
  12. <input type="submit" value="提交" />
  13. </form>
  14. </body>
  15. </html>

浏览器中，执行效果如下所示：

通过CGI程序传递checkbox数据

checkbox用于提交一个或者多个选项数据，test.html 代码如下：

  1. <!DOCTYPE html>
  2. <html>
  3. <head>
  4. <meta charset="utf-8">
  5. <title>W3xue教程(w3xue.com)</title>
  6. </head>
  7. <body>
  8. <form action="/cgi-bin/test.cgi" method="POST" target="_blank">
  9. <input type="checkbox" name="W3xue" value="on" /> W3xue教程
  10. <input type="checkbox" name="google" value="on" /> Google
  11. <input type="submit" value="选择站点" />
  12. </form>
  13. </body>
  14. </html>

以下为 test.cgi 文件的代码：

  1. #!/usr/bin/perl
  2.  
  3. local ($buffer, @pairs, $pair, $name, $value, %FORM);
  4. # 读取信息
  5. $ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
  6. if ($ENV{'REQUEST_METHOD'} eq "POST")
  7. {
  8.    read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
  9. }else {
  10.    $buffer = $ENV{'QUERY_STRING'};
  11. }
  12. # 读取 name/value 对信息
  13. @pairs = split(/&/, $buffer);
  14. foreach $pair (@pairs)
  15. {
  16.    ($name, $value) = split(/=/, $pair);
  17.    $value =~ tr/+/ /;
  18.    $value =~ s/%(..)/pack("C", hex($1))/eg;
  19.    $FORM{$name} = $value;
  20. }
  21. if( $FORM{W3xue} ){
  22.    $W3xue_flag ="ON";
  23. }else{
  24.    $W3xue_flag ="OFF";
  25. }
  26. if( $FORM{google} ){
  27.    $google_flag ="ON";
  28. }else{
  29.    $google_flag ="OFF";
  30. }
  31.  
  32. print "Content-type:text/html\r\n\r\n";
  33. print "<html>";
  34. print "<head>";
  35. print '<meta charset="utf-8">';
  36. print '<title>W3xue教程(w3xue.com)</title>';
  37. print "</head>";
  38. print "<body>";
  39. print "<h2> W3xue教程选中状态 : $W3xue_flag</h2>";
  40. print "<h2> Google 选择状态 : $google_flag</h2>";
  41. print "</body>";
  42. print "</html>";
  43.  
  44. 1;

浏览器中，执行效果如下所示：

通过CGI程序传递Radio数据

Radio 只向服务器传递一个数据，test.html 代码如下：

  1. <!DOCTYPE html>
  2. <html>
  3. <head>
  4. <meta charset="utf-8">
  5. <title>W3xue教程(w3xue.com)</title>
  6. </head>
  7. <body>
  8. <form action="/cgi-bin/test.cgi" method="post" target="_blank">
  9. <input type="radio" name="site" value="W3xue" /> W3xue教程
  10. <input type="radio" name="site" value="google" /> Google
  11. <input type="submit" value="提交" />
  12. </form>
  13. </body>
  14. </html>

test.cgi 脚本代码如下：

  1. #!/usr/bin/perl
  2.  
  3. local ($buffer, @pairs, $pair, $name, $value, %FORM);
  4. # 读取信息
  5. $ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
  6. if ($ENV{'REQUEST_METHOD'} eq "POST")
  7. {
  8.    read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
  9. }else {
  10.    $buffer = $ENV{'QUERY_STRING'};
  11. }
  12. # 读取 name/value 对信息
  13. @pairs = split(/&/, $buffer);
  14. foreach $pair (@pairs)
  15. {
  16.    ($name, $value) = split(/=/, $pair);
  17.    $value =~ tr/+/ /;
  18.    $value =~ s/%(..)/pack("C", hex($1))/eg;
  19.    $FORM{$name} = $value;
  20. }
  21. $site = $FORM{site};
  22.  
  23. print "Content-type:text/html\r\n\r\n";
  24. print "<html>";
  25. print "<head>";
  26. print '<meta charset="utf-8">';
  27. print '<title>W3xue教程(w3xue.com)</title>';
  28. print "</head>";
  29. print "<body>";
  30. print "<h2> 选择的网站 $site</h2>";
  31. print "</body>";
  32. print "</html>";
  33.  
  34. 1;

浏览器中，执行效果如下所示：

通过CGI程序传递 Textarea 数据

Textarea 向服务器传递多行数据，test.html 代码如下：

  1. <!DOCTYPE html>
  2. <html>
  3. <head>
  4. <meta charset="utf-8">
  5. <title>W3xue教程(w3xue.com)</title>
  6. </head>
  7. <body>
  8. <form action="/cgi-bin/test.cgi" method="post" target="_blank">
  9. <textarea name="textcontent" cols="40" rows="4">
  10. 在这里输入内容...
  11. </textarea>
  12. <input type="submit" value="提交" />
  13. </form>
  14. </body>
  15. </html>

test.cgi 脚本代码如下：

  1. #!/usr/bin/perl
  2.  
  3. local ($buffer, @pairs, $pair, $name, $value, %FORM);
  4. # 读取信息
  5. $ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
  6. if ($ENV{'REQUEST_METHOD'} eq "POST")
  7. {
  8.    read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
  9. }else {
  10.    $buffer = $ENV{'QUERY_STRING'};
  11. }
  12. # 读取 name/value 对信息
  13. @pairs = split(/&/, $buffer);
  14. foreach $pair (@pairs)
  15. {
  16.    ($name, $value) = split(/=/, $pair);
  17.    $value =~ tr/+/ /;
  18.    $value =~ s/%(..)/pack("C", hex($1))/eg;
  19.    $FORM{$name} = $value;
  20. }
  21. $text_content = $FORM{textcontent};
  22.  
  23. print "Content-type:text/html\r\n\r\n";
  24. print "<html>";
  25. print "<head>";
  26. print '<meta charset="utf-8">';
  27. print '<title>W3xue教程(w3xue.com)</title>';
  28. print "</head>";
  29. print "<body>";
  30. print "<h2>输入的文本内容为：$text_content</h2>";
  31. print "</body>";
  32. print "</html>";
  33.  
  34. 1;

浏览器中，执行效果如下所示：

通过CGI程序传递下拉数据

HTML 下拉框代码如下：

  1. <!DOCTYPE html>
  2. <html>
  3. <head>
  4. <meta charset="utf-8">
  5. <title>W3xue教程(w3xue.com)</title>
  6. </head>
  7. <body>
  8. <form action="/cgi-bin/test.cgi" method="post" target="_blank">
  9. <select name="dropdown">
  10. <option value="W3xue" selected>W3xue教程</option>
  11. <option value="google">Google</option>
  12. </select>
  13. <input type="submit" value="提交"/>
  14. </form>
  15. </body>
  16. </html>

test.cgi 脚本代码如下所示：

  1. #!/usr/bin/perl
  2.  
  3. local ($buffer, @pairs, $pair, $name, $value, %FORM);
  4. # 读取信息
  5. $ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
  6. if ($ENV{'REQUEST_METHOD'} eq "POST")
  7. {
  8.    read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
  9. }else {
  10.    $buffer = $ENV{'QUERY_STRING'};
  11. }
  12. # 读取 name/value 对信息
  13. @pairs = split(/&/, $buffer);
  14. foreach $pair (@pairs)
  15. {
  16.    ($name, $value) = split(/=/, $pair);
  17.    $value =~ tr/+/ /;
  18.    $value =~ s/%(..)/pack("C", hex($1))/eg;
  19.    $FORM{$name} = $value;
  20. }
  21. $site = $FORM{dropdown};
  22.  
  23. print "Content-type:text/html\r\n\r\n";
  24. print "<html>";
  25. print "<head>";
  26. print '<meta charset="utf-8">';
  27. print '<title>W3xue教程(w3xue.com)</title>';
  28. print "</head>";
  29. print "<body>";
  30. print "<h2>选择的网站是：$site</h2>";
  31. print "</body>";
  32. print "</html>";
  33.  
  34. 1;

浏览器中，执行效果如下所示：

CGI中使用Cookie

在 http 协议一个很大的缺点就是不对用户身份的进行判断，这样给编程人员带来很大的不便， 而 cookie 功能的出现弥补了这个不足。

cookie 就是在客户访问脚本的同时，通过客户的浏览器，在客户硬盘上写入纪录数据 ，当下次客户访问脚本时取回数据信息，从而达到身份判别的功能，cookie 常用在身份校验中。

　

cookie的语法

http cookie的发送是通过http头部来实现的，他早于文件的传递，头部set-cookie的语法如下：

  1. Set-cookie:name=name;expires=date;path=path;domain=domain;secure
  • name=name: 需要设置cookie的值(name不能使用";"和","号),有多个name值时用 ";" 分隔，例如：name1=name1;name2=name2;name3=name3。
  • expires=date: cookie的有效期限,格式： expires="Wdy,DD-Mon-YYYY HH:MM:SS"
  • path=path: 设置cookie支持的路径,如果path是一个路径，则cookie对这个目录下的所有文件及子目录生效，例如： path="/cgi-bin/"，如果path是一个文件，则cookie指对这个文件生效，例如：path="/cgi-bin/cookie.cgi"。
  • domain=domain: 对cookie生效的域名，例如：domain="www.w3xue.com"
  • secure: 如果给出此标志，表示cookie只能通过SSL协议的https服务器来传递。
  • cookie的接收是通过设置环境变量HTTP_COOKIE来实现的，CGI程序可以通过检索该变量获取cookie信息。

Cookie设置

Cookie的设置非常简单，cookie会在http头部单独发送。以下实例在cookie中设置了UserID、Password 和 expires：

  1. #!/usr/bin/perl
  2.  
  3. print "Set-Cookie:UserID=XYZ;\n";
  4. print "Set-Cookie:Password=XYZ123;\n";
  5. print "Set-Cookie:Expires=Tuesday, 31-Dec-2017 23:12:40 GMT";\n";
  6. print "Set-Cookie:Domain=www.w3xue.com;\n";
  7. print "Set-Cookie:Path=/perl;\n";
  8. print "Content-type:text/html\r\n\r\n";
  9. ...........其他 HTML 内容

查找 Cookie

Cookie信息检索页非常简单，Cookie信息存储在CGI的环境变量HTTP_COOKIE中，存储格式如下：

  1. #!/usr/bin/perl
  2. $rcvd_cookies = $ENV{'HTTP_COOKIE'};
  3. @cookies = split /;/, $rcvd_cookies;
  4. foreach $cookie ( @cookies ){
  5.    ($key, $val) = split(/=/, $cookie); # splits on the first =.
  6.    $key =~ s/^\s+//;
  7.    $val =~ s/^\s+//;
  8.    $key =~ s/\s+$//;
  9.    $val =~ s/\s+$//;
  10.    if( $key eq "UserID" ){
  11.       $user_id = $val;
  12.    }elsif($key eq "Password"){
  13.       $password = $val;
  14.    }
  15. }
  16. print "User ID  = $user_id\n";
  17. print "Password = $password\n";

以上实例输出结果为：

  1. User ID = XYZ
  2. Password = XYZ123

CGI 模块

Perl 提供了很多内置的 CGI 模块，常用以下两个：

转载本站内容时，请务必注明来自W3xue，违者必究。
 友情链接：直通硅谷 　点职佳 　北美留学生论坛

本站QQ群：前端 618073944 | Java 606181507 | Python 626812652 | C/C++ 612253063 | 微信 634508462 | 苹果 692586424 | C#/.net 182808419 | PHP 305140648 | 运维 608723728

W3xue 的所有内容仅供测试，对任何法律问题及风险不承担任何责任。通过使用本站内容随之而来的风险与本站无关。
关于我们  |  意见建议  |  捐助我们  |  报错有奖  |  广告合作、友情链接（目前9元/月）请联系QQ：27243702 沸活量
皖ICP备17017327号-2　皖公网安备34020702000426号