Cgi基礎(chǔ)圖文說(shuō)明教程之：12 代碼詳細(xì)說(shuō)明
發(fā)表時(shí)間：2024-06-05 來(lái)源：明輝站整理相關(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");
這行為要寫(xiě)的guestbook.log做準(zhǔn)備。open命令用來(lái)打開(kāi)文件進(jìn)行輸入和輸出。這里的"LOGFILE"稱(chēng)為文件句柄。后面，當(dāng)我想對(duì)guestbook.log文件進(jìn)行附加操作時(shí)，可以用print LOGFILE。對(duì)于程序的其余部分，LOGFILE就表示guestbook.log。后面的文件名以?xún)蓚�(gè)大于號(hào)開(kāi)始，這是常用的文件操作方式中的一種，我們常用的操作方式有三種：
< - 打開(kāi)文件進(jìn)行輸入操作（讀文件）。
> - 打開(kāi)文件進(jìn)行寫(xiě)操作（覆蓋文件）。
>> - 附加操作。
下一行是join語(yǔ)句。這是一個(gè)把數(shù)據(jù)加入無(wú)限制的文本文件的非常有用的工具。$newline=join(’::’,@value); 表示在數(shù)組@value中的每個(gè)值之間加入兩個(gè)分號(hào)。
$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的最后。因?yàn)閘og文件已經(jīng)有了一個(gè)句柄，可以這樣操作：
print LOGFILE ("$newline\n");
并且在$newline后面加一個(gè)換行符，以后在加新內(nèi)容時(shí)，將以新行開(kāi)始。
close LOGFILE;
- 關(guān)閉文件。
最后，在屏幕上輸出一些信息。這不只是禮節(jié)。所以可以這樣：
print "<BODY BGCOLOR=\’BEIGE\’><H1>Thank you. Your comments have been added</H1>";
