Perl CGI编程
http://www.runoob.com/perl/perl-cgi-programming.html
什么是CGI
CGI 目前由NCSA维护，NCSA定义CGI以下：html
CGI(Common Gateway Interface),通用网关接口,它是一段程序,运行在服务器上如：HTTP服务器，提供同客户端HTML页面的接口。web
网页浏览
为了更好的了解CGI是如何工做的，咱们能够从在网页上点击一个连接或URL的流程：编程
- 一、使用你的浏览器访问URL并链接到HTTP web 服务器。
- 二、Web服务器接收到请求信息后会解析URL，并查找访问的文件在服务器上是否存在，若是存在返回文件的内容，不然返回错误信息。
- 三、浏览器从服务器上接收信息，并显示接收的文件或者错误信息。
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目录。cookie
CGI文件的扩展名为.cgi，Perl 也可使用.pl扩展名。架构
默认状况下，Linux服务器配置运行的cgi-bin目录中为/var/www。app
若是你想指定其余运行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/perl print "Content-type:text/html\r\n\r\n"; print '<html>'; print '<head>'; print '<meta charset="utf-8">'; print '<title>菜鸟教程(runoob.com)</title>'; print '</head>'; print '<body>'; print '<h2>Hello Word! </h2>'; print '<p>来自菜鸟教程第一个 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_FILENAME | CGI脚本的完整路径 |
| SCRIPT_NAME | CGI脚本的的名称 |
| SERVER_NAME | 这是你的 WEB 服务器的主机名、别名或IP地址。 |
| SERVER_SOFTWARE | 这个环境变量的值包含了调用CGI程序的HTTP服务器的名称和版本号。例如，上面的值为Apache/2.2.14(Unix) |
如下是一个简单的CGI脚本输出CGI的环境变量：
实例
#!/usr/bin/perl print "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 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"); }
使用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=菜鸟教程&url=http://www.runoob.com
如下为test.cgi文件的代码：
实例
#!/usr/bin/perl local ($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) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%(..)/pack("C", hex($1))/eg; $FORM{$name} = $value; } $name = $FORM{name}; $url = $FORM{url}; print "Content-type:text/html\r\n\r\n"; print "<html>"; print "<head>"; print '<meta charset="utf-8">'; print '<title>菜鸟教程(runoob.com)</title>'; print "</head>"; print "<body>"; print "<h2>$name网址：$url</h2>"; print "</body>"; print "</html>"; 1;
查看浏览器，输出结果以下：
简单的表单实例：GET方法
如下是一个经过HTML的表单使用GET方法向服务器发送两个数据，提交的服务器脚本一样是test.cgi文件，test.html 代码以下：
test.html 文件代码
<!DOCTYPE html> <html> <head> <meta charset="utf-8"> <title>菜鸟教程(runoob.com)</title> </head> <body> <form action="/cgi-bin/test.cgi" method="get"> 站点名称: <input type="text" name="name"> <br /> 站点 URL: <input type="text" name="url" /> <input type="submit" value="提交" /> </form> </body> </html>
浏览器中，执行效果以下所示：
使用POST方法传递数据
使用POST方法向服务器传递数据是更安全可靠的，像一些敏感信息如用户密码等须要使用POST传输数据。
如下一样是 test.cgi ，它也能够处理浏览器提交的POST表单数据:
test.cgi 代码
#!/usr/bin/perl local ($buffer, @pairs, $pair, $name, $value, %FORM); # 读取文本信息 $ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/; if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }else { $buffer = $ENV{'QUERY_STRING'}; } # 读取 name/value 对信息 @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%(..)/pack("C", hex($1))/eg; $FORM{$name} = $value; } $name = $FORM{name}; $url = $FORM{url}; print "Content-type:text/html\r\n\r\n"; print "<html>"; print "<head>"; print '<meta charset="utf-8">'; print '<title>菜鸟教程(runoob.com)</title>'; print "</head>"; print "<body>"; print "<h2>$name网址：$url</h2>"; print "</body>"; print "</html>"; 1;
如下是一个经过HTML的表单使用GET方法向服务器发送两个数据，提交的服务器脚本一样是test.cgi文件，test.html 代码以下：
test.html 代码
<!DOCTYPE html> <html> <head> <meta charset="utf-8"> <title>菜鸟教程(runoob.com)</title> </head> <body> <form action="/cgi-bin/test.cgi" method="post"> 站点名称: <input type="text" name="name"> <br /> 站点 URL: <input type="text" name="url" /> <input type="submit" value="提交" /> </form> </body> </html>
浏览器中，执行效果以下所示：
经过CGI程序传递checkbox数据
checkbox用于提交一个或者多个选项数据，test.html 代码以下：
test.html 代码
<!DOCTYPE html> <html> <head> <meta charset="utf-8"> <title>菜鸟教程(runoob.com)</title> </head> <body> <form action="/cgi-bin/test.cgi" method="POST" target="_blank"> <input type="checkbox" name="runoob" value="on" /> 菜鸟教程 <input type="checkbox" name="google" value="on" /> Google <input type="submit" value="选择站点" /> </form> </body> </html>
如下为 test.cgi 文件的代码：
test.cgi 代码
#!/usr/bin/perl local ($buffer, @pairs, $pair, $name, $value, %FORM); # 读取信息 $ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/; if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }else { $buffer = $ENV{'QUERY_STRING'}; } # 读取 name/value 对信息 @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%(..)/pack("C", hex($1))/eg; $FORM{$name} = $value; } if( $FORM{runoob} ){ $runoob_flag ="ON"; }else{ $runoob_flag ="OFF"; } if( $FORM{google} ){ $google_flag ="ON"; }else{ $google_flag ="OFF"; } print "Content-type:text/html\r\n\r\n"; print "<html>"; print "<head>"; print '<meta charset="utf-8">'; print '<title>菜鸟教程(runoob.com)</title>'; print