时间: 2021-07-31 作者:daque
代码详解 #********* 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>";