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