|
代碼詳解
#********* 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做準備。open命令用來打開文件進行輸入和輸出。這里的"LOGFILE"稱為文件句柄。后面，當我想對guestbook.log文件進行附加操作時，可以用print LOGFILE。對于程序的其余部分，LOGFILE就表示guestbook.log。后面的文件名以兩個大于號開始，這是常用的文件操作方式中的一種，我們常用的操作方式有三種：
< - 打開文件進行輸入操作（讀文件）。
> - 打開文件進行寫操作（覆蓋文件）。
>> - 附加操作。
下一行是join語句。這是一個把數據加入無限制的文本文件的非常有用的工具。$newline=join(’::’,@value); 表示在數組@value中的每個值之間加入兩個分號。
$newline現在包含的內容為：
Robert::Young::5 Main St.::Anytown::MA::02177::(617) 555-1212::robyoung@mediaone.net::on::This is Great
現在可以把$newline加入到guestbook.cgi的最后。因為log文件已經有了一個句柄，可以這樣操作：
print LOGFILE ("$newline\n");
并且在$newline后面加一個換行符，以后在加新內容時，將以新行開始。
close LOGFILE;
- 關閉文件。
最后，在屏幕上輸出一些信息。這不只是禮節。所以可以這樣：
print "<BODY BGCOLOR=\’BEIGE\’><H1>Thank you. Your comments have been added</H1>";
|
