Perl CGI編程
什么是CGI
CGI 目前由NCSA維護(hù)，NCSA定義CGI如下：
CGI(Common Gateway Interface),通用網(wǎng)關(guān)接口,它是一段程序,運(yùn)行在服務(wù)器上如：HTTP服務(wù)器，提供同客戶(hù)端HTML頁(yè)面的接口。
網(wǎng)頁(yè)瀏覽
為了更好的了解CGI是如何工作的，我們可以從在網(wǎng)頁(yè)上點(diǎn)擊一個(gè)鏈接或URL的流程：
- 1、使用你的瀏覽器訪問(wèn)URL并連接到HTTP web 服務(wù)器。
- 2、Web服務(wù)器接收到請(qǐng)求信息后會(huì)解析URL，并查找訪問(wèn)的文件在服務(wù)器上是否存在，如果存在返回文件的內(nèi)容，否則返回錯(cuò)誤信息。
- 3、瀏覽器從服務(wù)器上接收信息，并顯示接收的文件或者錯(cuò)誤信息。
CGI程序可以是Python腳本，PERL腳本，SHELL腳本，C或者C++程序等。
CGI架構(gòu)圖
Web服務(wù)器支持及配置
在你進(jìn)行CGI編程前，確保您的Web服務(wù)器支持CGI及已經(jīng)配置了CGI的處理程序。
Apache 支持CGI 配置：
設(shè)置好CGI目錄：
ScriptAlias /cgi-bin/ /var/www/cgi-bin/
所有的HTTP服務(wù)器執(zhí)行CGI程序都保存在一個(gè)預(yù)先配置的目錄。這個(gè)目錄被稱(chēng)為CGI目錄，并按照慣例，它被命名為/var/www/cgi-bin目錄。
CGI文件的擴(kuò)展名為.cgi，Perl 也可以使用.pl擴(kuò)展名。
默認(rèn)情況下，Linux服務(wù)器配置運(yùn)行的cgi-bin目錄中為/var/www。
如果你想指定其他運(yùn)行CGI腳本的目錄，可以修改httpd.conf配置文件，如下所示：
<Directory "/var/www/cgi-bin"> AllowOverride None Options +ExecCGI Order allow,deny Allow from all </Directory>
在 AddHandler 中添加 .pl 后綴，這樣我們就可以訪問(wèn) .pl 結(jié)尾的 Perl 腳本文件：
AddHandler cgi-script .cgi .pl .py
第一個(gè) CGI 程序
以下我們創(chuàng)建一個(gè) 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>W3Cschool教程(w3cschool.cn)</title>'; print '</head>'; print '<body>'; print '<h2>Hello Word! </h2>'; print '<p>來(lái)自W3Cschool教程第一個(gè) CGI 程序。</p>'; print '</body>'; print '</html>'; 1;
然后通過(guò)瀏覽器打開(kāi) http://localhost/cgi-bin/test.cgi，輸出結(jié)果如下：
腳本第一行的輸出內(nèi)容"Content-type:text/html\r\n\r\n"發(fā)送到瀏覽器并告知瀏覽器顯示的內(nèi)容類(lèi)型為"text/html"。
HTTP頭部
test.cgi文件內(nèi)容中的" Content-type:text/html"即為HTTP頭部的一部分，它會(huì)發(fā)送給瀏覽器告訴瀏覽器文件的內(nèi)容類(lèi)型。
HTTP頭部的格式如下：
HTTP 字段名: 字段內(nèi)容
例如：
Content-type:text/html\r\n\r\n
以下表格介紹了CGI程序中HTTP頭部經(jīng)常使用的信息：
| 頭 | 描述 |
|---|---|
| Content-type: | 請(qǐng)求的與實(shí)體對(duì)應(yīng)的MIME信息。例如: Content-type:text/html |
| Expires: Date | 響應(yīng)過(guò)期的日期和時(shí)間 |
| Location: URL | 用來(lái)重定向接收方到非請(qǐng)求URL的位置來(lái)完成請(qǐng)求或標(biāo)識(shí)新的資源 |
| Last-modified: Date | 請(qǐng)求資源的最后修改時(shí)間 |
| Content-length: N | 請(qǐng)求的內(nèi)容長(zhǎng)度 |
| Set-Cookie: String | 設(shè)置Http Cookie |
CGI環(huán)境變量
所有的CGI程序都接收以下的環(huán)境變量，這些變量在CGI程序中發(fā)揮了重要的作用：
| 變量名 | 描述 |
|---|---|
| CONTENT_TYPE | 這個(gè)環(huán)境變量的值指示所傳遞來(lái)的信息的MIME類(lèi)型。目前，環(huán)境變量CONTENT_TYPE一般都是：application/x-www-form-urlencoded,他表示數(shù)據(jù)來(lái)自于HTML表單。 |
| CONTENT_LENGTH | 如果服務(wù)器與CGI程序信息的傳遞方式是POST，這個(gè)環(huán)境變量即使從標(biāo)準(zhǔn)輸入STDIN中可以讀到的有效數(shù)據(jù)的字節(jié)數(shù)。這個(gè)環(huán)境變量在讀取所輸入的數(shù)據(jù)時(shí)必須使用。 |
| HTTP_COOKIE | 客戶(hù)機(jī)內(nèi)的 COOKIE 內(nèi)容。 |
| HTTP_USER_AGENT | 提供包含了版本數(shù)或其他專(zhuān)有數(shù)據(jù)的客戶(hù)瀏覽器信息。 |
| PATH_INFO | 這個(gè)環(huán)境變量的值表示緊接在CGI程序名之后的其他路徑信息。它常常作為CGI程序的參數(shù)出現(xiàn)。 |
| QUERY_STRING | 如果服務(wù)器與CGI程序信息的傳遞方式是GET，這個(gè)環(huán)境變量的值即使所傳遞的信息。這個(gè)信息經(jīng)跟在CGI程序名的后面，兩者中間用一個(gè)問(wèn)號(hào)'?'分隔。 |
| REMOTE_ADDR | 這個(gè)環(huán)境變量的值是發(fā)送請(qǐng)求的客戶(hù)機(jī)的IP地址，例如上面的192.168.1.67。這個(gè)值總是存在的。而且它是Web客戶(hù)機(jī)需要提供給Web服務(wù)器的唯一標(biāo)識(shí)，可以在CGI程序中用它來(lái)區(qū)分不同的Web客戶(hù)機(jī)。 |
| REMOTE_HOST | 這個(gè)環(huán)境變量的值包含發(fā)送CGI請(qǐng)求的客戶(hù)機(jī)的主機(jī)名。如果不支持你想查詢(xún)，則無(wú)需定義此環(huán)境變量。 |
| REQUEST_METHOD | 提供腳本被調(diào)用的方法。對(duì)于使用 HTTP/1.0 協(xié)議的腳本，僅 GET 和 POST 有意義。 |
| SCRIPT_FILENAME | CGI腳本的完整路徑 |
| SCRIPT_NAME | CGI腳本的的名稱(chēng) |
| SERVER_NAME | 這是你的 WEB 服務(wù)器的主機(jī)名、別名或IP地址。 |
| SERVER_SOFTWARE | 這個(gè)環(huán)境變量的值包含了調(diào)用CGI程序的HTTP服務(wù)器的名稱(chēng)和版本號(hào)。例如，上面的值為Apache/2.2.14(Unix) |
以下是一個(gè)簡(jiǎn)單的CGI腳本輸出CGI的環(huán)境變量：
#!/usr/bin/perl
print "Content-type: text/html\n\n";
print '<meta charset="utf-8">';
print "<font size=+1>環(huán)境變量：</font>\n";
foreach (sort keys %ENV)
{
print "<b>$_</b>: $ENV{$_}<br>\n";
}
1;
文件下載
如果我們想通過(guò) Perl CGI 實(shí)現(xiàn)文件下載，需要設(shè)置不同的頭部信息，如下所示：
#!/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方法傳輸數(shù)據(jù)
GET方法發(fā)送編碼后的用戶(hù)信息到服務(wù)端，數(shù)據(jù)信息包含在請(qǐng)求頁(yè)面的URL上，以"?"號(hào)分割, 如下所示：
http://www.test.com/cgi-bin/test.cgi?key1=value1&key2=value2有關(guān) GET 請(qǐng)求的其他一些注釋?zhuān)?ul>
簡(jiǎn)單的url實(shí)例：GET方法
以下是一個(gè)簡(jiǎn)單的URL，使用GET方法向test.cgi程序發(fā)送兩個(gè)參數(shù)：
/cgi-bin/test.cgi?name=W3Cschool教程&url=http://eska-fuses.cn
以下為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 對(duì)信息
@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>W3Cschool教程(w3cschool.cn)</title>';
print "</head>";
print "<body>";
print "<h2>$name網(wǎng)址：$url</h2>";
print "</body>";
print "</html>";
1;
查看瀏覽器，輸出結(jié)果如下：
簡(jiǎn)單的表單實(shí)例：GET方法
以下是一個(gè)通過(guò)HTML的表單使用GET方法向服務(wù)器發(fā)送兩個(gè)數(shù)據(jù)，提交的服務(wù)器腳本同樣是test.cgi文件，test.html 代碼如下：
<!DOCTYPE html> <html> <head> <meta charset="utf-8"> <title>W3Cschool教程(w3cschool.cn)</title> </head> <body> <form action="/cgi-bin/test.cgi" method="get"> 站點(diǎn)名稱(chēng): <input type="text" name="name"> <br /> 站點(diǎn) URL: <input type="text" name="url" /> <input type="submit" value="提交" /> </form> </body> </html>
使用POST方法傳遞數(shù)據(jù)
使用POST方法向服務(wù)器傳遞數(shù)據(jù)是更安全可靠的，像一些敏感信息如用戶(hù)密碼等需要使用POST傳輸數(shù)據(jù)。
以下同樣是 test.cgi ，它也可以處理瀏覽器提交的POST表單數(shù)據(jù):
#!/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 對(duì)信息
@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>W3Cschool教程(w3cschool.cn)</title>';
print "</head>";
print "<body>";
print "<h2>$name網(wǎng)址：$url</h2>";
print "</body>";
print "</html>";
1;
以下是一個(gè)通過(guò)HTML的表單使用GET方法向服務(wù)器發(fā)送兩個(gè)數(shù)據(jù)，提交的服務(wù)器腳本同樣是test.cgi文件，test.html 代碼如下：
<!DOCTYPE html> <html> <head> <meta charset="utf-8"> <title>W3Cschool教程(w3cschool.cn)</title> </head> <body> <form action="/cgi-bin/test.cgi" method="post"> 站點(diǎn)名稱(chēng): <input type="text" name="name"> <br /> 站點(diǎn) URL: <input type="text" name="url" /> <input type="submit" value="提交" /> </form> </body> </html>
通過(guò)CGI程序傳遞checkbox數(shù)據(jù)
checkbox用于提交一個(gè)或者多個(gè)選項(xiàng)數(shù)據(jù)，test.html 代碼如下：
<!DOCTYPE html> <html> <head> <meta charset="utf-8"> <title>W3Cschool教程(w3cschool.cn)</title> </head> <body> <form action="/cgi-bin/test.cgi" method="POST" target="_blank"> <input type="checkbox" name="youj" value="on" /> W3Cschool教程 <input type="checkbox" name="google" value="on" /> Google <input type="submit" value="選擇站點(diǎn)" /> </form> </body> </html>
以下為 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 對(duì)信息
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%(..)/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
if( $FORM{youj} ){
$youj_flag ="ON";
}else{
$youj_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>W3Cschool教程(w3cschool.cn)</title>';
print "</head>";
print "<body>";
print "<h2> W3Cschool教程選中狀態(tài) : $youj_flag</h2>";
print "<h2> Google 選擇狀態(tài) : $google_flag</h2>";
print "</body>";
print "</html>";
1;
通過(guò)CGI程序傳遞Radio數(shù)據(jù)
Radio 只向服務(wù)器傳遞一個(gè)數(shù)據(jù)，test.html 代碼如下：
<!DOCTYPE html> <html> <head> <meta charset="utf-8"> <title>W3Cschool教程(w3cschool.cn)</title> </head> <body> <form action="/cgi-bin/test.cgi" method="post" target="_blank"> <input type="radio" name="site" value="youj" /> W3Cschool教程 <input type="radio" name="site" value="google" /> Google <input type="submit" value="提交" /> </form> </body> </html>
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 對(duì)信息
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%(..)/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
$site = $FORM{site};
print "Content-type:text/html\r\n\r\n";
print "<html>";
print "<head>";
print '<meta charset="utf-8">';
print '<title>W3Cschool教程(w3cschool.cn)</title>';
print "</head>";
print "<body>";
print "<h2> 選擇的網(wǎng)站 $site</h2>";
print "</body>";
print "</html>";
1;
通過(guò)CGI程序傳遞 Textarea 數(shù)據(jù)
Textarea 向服務(wù)器傳遞多行數(shù)據(jù)，test.html 代碼如下：
<!DOCTYPE html> <html> <head> <meta charset="utf-8"> <title>W3Cschool教程(w3cschool.cn)</title> </head> <body> <form action="/cgi-bin/test.cgi" method="post" target="_blank"> <textarea name="textcontent" cols="40" rows="4"> 在這里輸入內(nèi)容... </textarea> <input type="submit" value="提交" /> </form> </body> </html>
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 對(duì)信息
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%(..)/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
$text_content = $FORM{textcontent};
print "Content-type:text/html\r\n\r\n";
print "<html>";
print "<head>";
print '<meta charset="utf-8">';
print '<title>W3Cschool教程(w3cschool.cn)</title>';
print "</head>";
print "<body>";
print "<h2>輸入的文本內(nèi)容為：$text_content</h2>";
print "</body>";
print "</html>";
1;
通過(guò)CGI程序傳遞下拉數(shù)據(jù)
HTML 下拉框代碼如下：
<!DOCTYPE html> <html> <head> <meta charset="utf-8"> <title>W3Cschool教程(w3cschool.cn)</title> </head> <body> <form action="/cgi-bin/test.cgi" method="post" target="_blank"> <select name="dropdown"> <option value="youj" selected>W3Cschool教程</option> <option value="google">Google</option> </select> <input type="submit" value="提交"/> </form> </body> </html>
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 對(duì)信息
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%(..)/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
$site = $FORM{dropdown};
print "Content-type:text/html\r\n\r\n";
print "<html>";
print "<head>";
print '<meta charset="utf-8">';
print '<title>W3Cschool教程(w3cschool.cn)</title>';
print "</head>";
print "<body>";
print "<h2>選擇的網(wǎng)站是：$site</h2>";
print "</body>";
print "</html>";
1;
CGI中使用Cookie
在 http 協(xié)議一個(gè)很大的缺點(diǎn)就是不對(duì)用戶(hù)身份的進(jìn)行判斷，這樣給編程人員帶來(lái)很大的不便，而 cookie 功能的出現(xiàn)彌補(bǔ)了這個(gè)不足。
cookie 就是在客戶(hù)訪問(wèn)腳本的同時(shí)，通過(guò)客戶(hù)的瀏覽器，在客戶(hù)硬盤(pán)上寫(xiě)入紀(jì)錄數(shù)據(jù) ，當(dāng)下次客戶(hù)訪問(wèn)腳本時(shí)取回?cái)?shù)據(jù)信息，從而達(dá)到身份判別的功能，cookie 常用在身份校驗(yàn)中。
cookie的語(yǔ)法
http cookie的發(fā)送是通過(guò)http頭部來(lái)實(shí)現(xiàn)的，他早于文件的傳遞，頭部set-cookie的語(yǔ)法如下：
Set-cookie:name=name;expires=date;path=path;domain=domain;secure
- name=name: 需要設(shè)置cookie的值(name不能使用";"和","號(hào)),有多個(gè)name值時(shí)用 ";" 分隔，例如：name1=name1;name2=name2;name3=name3。
- expires=date: cookie的有效期限,格式： expires="Wdy,DD-Mon-YYYY HH:MM:SS"
- path=path: 設(shè)置cookie支持的路徑,如果path是一個(gè)路徑，則cookie對(duì)這個(gè)目錄下的所有文件及子目錄生效，例如： path="/cgi-bin/"，如果path是一個(gè)文件，則cookie指對(duì)這個(gè)文件生效，例如：path="/cgi-bin/cookie.cgi"。
- domain=domain: 對(duì)cookie生效的域名，例如：domain="eska-fuses.cn"
- secure: 如果給出此標(biāo)志，表示cookie只能通過(guò)SSL協(xié)議的https服務(wù)器來(lái)傳遞。
- cookie的接收是通過(guò)設(shè)置環(huán)境變量HTTP_COOKIE來(lái)實(shí)現(xiàn)的，CGI程序可以通過(guò)檢索該變量獲取cookie信息。
Cookie設(shè)置
Cookie的設(shè)置非常簡(jiǎn)單，cookie會(huì)在http頭部單獨(dú)發(fā)送。以下實(shí)例在cookie中設(shè)置了UserID、Password 和 expires：
#!/usr/bin/perl print "Set-Cookie:UserID=XYZ;\n"; print "Set-Cookie:Password=XYZ123;\n"; print "Set-Cookie:Expires=Tuesday, 31-Dec-2017 23:12:40 GMT";\n"; print "Set-Cookie:Domain=eska-fuses.cn;\n"; print "Set-Cookie:Path=/perl;\n"; print "Content-type:text/html\r\n\r\n"; ...........其他 HTML 內(nèi)容
查找 Cookie
Cookie信息檢索頁(yè)非常簡(jiǎn)單，Cookie信息存儲(chǔ)在CGI的環(huán)境變量HTTP_COOKIE中，存儲(chǔ)格式如下：
#!/usr/bin/perl
$rcvd_cookies = $ENV{'HTTP_COOKIE'};
@cookies = split /;/, $rcvd_cookies;
foreach $cookie ( @cookies ){
($key, $val) = split(/=/, $cookie); # splits on the first =.
$key =~ s/^\s+//;
$val =~ s/^\s+//;
$key =~ s/\s+$//;
$val =~ s/\s+$//;
if( $key eq "UserID" ){
$user_id = $val;
}elsif($key eq "Password"){
$password = $val;
}
}
print "User ID = $user_id\n";
print "Password = $password\n";
以上實(shí)例輸出結(jié)果為：
User ID = XYZ Password = XYZ123
CGI 模塊
Perl 提供了很多內(nèi)置的 CGI 模塊，常用以下兩個(gè)：
更多建議：