-->Perl CGI六天入门-->5.1 留言板CGI代码

后一页
前一页
5.1 留言板CGI代码

#>>>>>>>>> BEGIN BODY*>>>>>>>>>>>>>>>>>>>

open (LOGFILE, ">>guestbook.log");

$newline=join('::',@value);

print LOGFILE ("$newline\n");
close LOGFILE;

print "<BODY BGCOLOR=\'BEIGE\'><H1>Thank you. Your comments have been added</H1>";

#>>>>>>>> END BODY*>>>>>>>>>>>>>>>>>>>>>>>

这是guestbook.cgi程序的BODY部分。你应该这样：

现在可以测试form了。如果没有错误，将返回一个米色的感谢你的页。可以在Unix命令提示符下敲入cat guestbook.log查看文件的内容。后一页
 前一页