CGI入门教程 |
第三页:读取log文件 print "</TABLE>\n"; #********* END BODY********************
这段代码与前面的正相反,它从log文件中读信息。 open(LOGFILE, "<guestbook.log"); 打开guestbook.log文件进行输入工作。 @entries=<LOGFILE>; 把文件的内容输入到数组@entries中。 print "<BODY bgcolor=beige>\n" ; 写HTML文件的起始部分。 foreach $line(@entries){ 对于数组@entries中的每一行。 @fields=split(/::/,$line); 用::分割$line到数组@fields中。 print "<TR><TD>$fields[0]$fields[1]<TD>$fields[9]\n"; 在表格中打印数组@fields中的信息。 print "</TABLE>\n"; 表格结束。 CGI入门教程 [第1天][第2天][第3天][第4天][第5天][第6天]
|