Cgi入門教程之：9 BODY部分
BODY部分 
#*****************BEGIN BODY************* 
print "<h1>Thank you for filling out the form</h1>"; 
$firstname = $value[0]; 
$lastname = $value[1]; 
$email = $value[2]; 

print "Your first name is $firstname<BR>"; 
print "Your last name is $lastname<BR>"; 
print "Your e-mail is $email<BR>"; 

#***************END BODY****************** 
--------------------------------------------------------------------------------
對(duì)于Perl，我們需要知道：

每行以分號(hào)結(jié)束。 
變量以$開始。 
第一行很直接 - print將打印隨后的內(nèi)容到屏幕上。要打印的內(nèi)容必須在引號(hào)內(nèi)，其中可以包含HTML標(biāo)記符。
readparse子過程自動(dòng)把HTML FORM中的內(nèi)容放入一個(gè)稱為value的數(shù)組中。這樣，第一個(gè)文本框中的內(nèi)容是$value[0]，第二個(gè)文本框中的內(nèi)容是$value[1]，等等 - 數(shù)組下標(biāo)以0開始。
第二行我們執(zhí)行命令：
$firstname = $value[0]; 
這個(gè)語句創(chuàng)建一個(gè)稱為$firstname的新變量，把$value[0]的內(nèi)容賦給它。這意味著在HTML FORM中第一個(gè)文本框中輸入的信息將包含在變量$firstname中。
第三行和第四行與此類似：
$lastname = $value[1]; $email = $value[2]; 
很明顯，這兩行分別把第二個(gè)和第三個(gè)文本框中的內(nèi)容賦給變量$lastname和$email。
程序的最后三行把文本和變量打印到屏幕上。
print "Your first name is $firstname<BR>"; 
print "Your last name is $lastname<BR>"; 
print "Your e-mail is $email<BR>"; 
注意變量被包含在雙引號(hào)中。在其它語言，如javascript中，我們必須顯式的連接文本和變量。在Perl中，當(dāng)它看到$時(shí)，就會(huì)使用變量的內(nèi)容。不錯(cuò)，是吧？但是要注意，只有雙引號(hào)才能這樣，單引號(hào)只是從字面上引用其中的內(nèi)容。