📄 day5_3.html
字号:
<html>
<!-- #BeginTemplate "/Templates/backend.dwt" -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
a:link { color: blue; text-decoration: none}
a:visited { color: purple; text-decoration: none}
a:hover { color: #CC0033; text-decoration: underline}
.smallfont { font-family: "宋体"; font-size: 9pt; line-height: 12pt}
-->
</style>
<!-- #BeginEditable "doctitle" -->
<title>CGI入门教程</title>
<!-- #EndEditable -->
</head>
<body topmargin="1" leftmargin="2">
<p><b><br>
<span class="smallfont">CGI入门教程<br>
</b><br>
<font color="#FF0000">第一页</font> <a href="day5_1.html">留言板CGI代码</a><br>
<font color="#FF0000">第二页</font> <a href="day5_2.html">代码详解</a><br>
<font color="#FF0000">第三页</font> 读取log文件</span></p>
<p><span class="smallfont">[<a href="day1_1.html">第1天</a>][<a href="day2_1.html">第2天</a>][<a
href="day3_1.html">第3天</a>][<a href="day4_1.html">第4天</a>][第5天][<a
href="day6_1.html">第6天</a>][<a href="../perl.htm">返回</a>]</span></p>
<p><span class="smallfont"><b>第三页：读取log文件</b></span></p>
<p><span class="smallfont"><b>print "</TABLE>\n";</b> </span></p>
<p><span class="smallfont">#********* END BODY******************** </span>
<ul>
<li><span class="smallfont">拷贝以上代码到template.txt文件的BODY部分。</span></li>
<li><span class="smallfont">保存为getlog.cgi。</span></li>
<li><span class="smallfont">把getlog.cgi用FTP上传到服务器的perltour文件夹中。</span></li>
<li><span class="smallfont">在Unix提示符下，进入perltour文件夹，敲入chmod a+rx
getlog.cgi。</span></li>
<li><span class="smallfont">在浏览器中打开http://your.server.name/perltour/getlog.cgi，屏幕将显示所有用户输入的信息。</span></li>
</ul>
<p><span class="smallfont">这段代码与前面的正相反，它从log文件中读信息。</span></p>
<p><span class="smallfont"><b>open(LOGFILE, "<guestbook.log");</b> </span></p>
<p><span class="smallfont">打开guestbook.log文件进行输入工作。</span></p>
<p><span class="smallfont">@entries=<LOGFILE>;</span></p>
<p><span class="smallfont">把文件的内容输入到数组@entries中。</span></p>
<p><span class="smallfont">print "<BODY bgcolor=beige>\n"</span></p>
<p><span class="smallfont">;<br>
print "<TABLE>\n";</span></p>
<p><span class="smallfont">写HTML文件的起始部分。</span></p>
<p><span class="smallfont">foreach $line(@entries){</span></p>
<p><span class="smallfont">对于数组@entries中的每一行。</span></p>
<p><span class="smallfont">@fields=split(/::/,$line);</span></p>
<p><span class="smallfont">用::分割$line到数组@fields中。</span></p>
<p><span class="smallfont">print
"<TR><TD>$fields[0]$fields[1]<TD>$fields[9]\n";<br>
} </span></p>
<p><span class="smallfont">在表格中打印数组@fields中的信息。</span></p>
<p><span class="smallfont">print "</TABLE>\n";</span></p>
<p><span class="smallfont">表格结束。</span></p>
</body>
<!-- #EndTemplate -->
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -