明輝手游網(wǎng)中心：是一個免費提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺！

Cgi基礎(chǔ)圖文說明教程之：12 代碼詳細(xì)說明

發(fā)表時間：2024-02-03 來源：明輝站整理相關(guān)軟件相關(guān)文章人氣：

[摘要]代碼詳解 #********* BEGIN BODY******************** open (LOGFILE, ">>guestbook.log"); $newline=join(’::’,@value); print LOGFILE (&quo...
代碼詳解 
#********* BEGIN BODY******************** 
open (LOGFILE, ">>guestbook.log"); 
$newline=join(’::’,@value); 
print LOGFILE ("$newline\n"); 
close LOGFILE; 
print "<BODY BGCOLOR=’BEIGE’><H1>Thank you. "; 
print "Your comments have been added</H1>"; 
#******** END BODY************************ 
--------------------------------------------------------------------------------
代碼的第一行是：
open (LOGFILE, ">>guestbook.log"); 
這行為要寫的guestbook.log做準(zhǔn)備。open命令用來打開文件進行輸入和輸出。這里的"LOGFILE"稱為文件句柄。后面，當(dāng)我想對guestbook.log文件進行附加操作時，可以用print LOGFILE。對于程序的其余部分，LOGFILE就表示guestbook.log。后面的文件名以兩個大于號開始，這是常用的文件操作方式中的一種，我們常用的操作方式有三種：

< - 打開文件進行輸入操作（讀文件）。 
> - 打開文件進行寫操作（覆蓋文件）。 
>> - 附加操作。 
下一行是join語句。這是一個把數(shù)據(jù)加入無限制的文本文件的非常有用的工具。$newline=join(’::’,@value); 表示在數(shù)組@value中的每個值之間加入兩個分號。
$newline現(xiàn)在包含的內(nèi)容為：
Robert::Young::5 Main St.::Anytown::MA::02177::(617) 555-1212::robyoung@mediaone.net::on::This is Great 
現(xiàn)在可以把$newline加入到guestbook.cgi的最后。因為log文件已經(jīng)有了一個句柄，可以這樣操作：
print LOGFILE ("$newline\n"); 
并且在$newline后面加一個換行符，以后在加新內(nèi)容時，將以新行開始。
close LOGFILE;
- 關(guān)閉文件。
最后，在屏幕上輸出一些信息。這不只是禮節(jié)。所以可以這樣：
print "<BODY BGCOLOR=\’BEIGE\’><H1>Thank you. Your comments have been added</H1>";