-->Perl CGI六天入门-->5.3 读取log文件

后一页
前一页
5.3 读取log文件

print "</TABLE>\n";

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

这段代码与前面的正相反，它从log文件中读信息。

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

打开guestbook.log文件进行输入工作。

@entries=<LOGFILE>;

把文件的内容输入到数组@entries中。

print "<BODY bgcolor=beige>\n"

;
print "<TABLE>\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";