⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 day5_2.html

📁 《Perl CGI 6天入门》
💻 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> </b></p>

<p><span class="smallfont"><b>CGI入门教程<br>
</b><br>
<font color="#FF0000">第一页</font> <a href="day5_1.html">留言板CGI代码</a><br>
<font color="#FF0000">第二页</font> 代码详解<br>
<font color="#FF0000">第三页</font> <a href="day5_3.html">读取log文件</a> </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"><!-- #BeginEditable "content" --> </span></p>

<p><span class="smallfont"><b>第二页:代码详解</b></span></p>

<p><span class="smallfont">#********* BEGIN BODY******************** </span></p>

<p><span class="smallfont"><b>open (LOGFILE, &quot;&gt;&gt;guestbook.log&quot;);</b> </span></p>

<p><span class="smallfont"><b>$newline=join('::',@value);</b> </span></p>

<p><span class="smallfont"><b>print LOGFILE (&quot;$newline\n&quot;);</b> </span></p>

<p><span class="smallfont"><b>close LOGFILE;</b> </span></p>

<p><span class="smallfont"><b>print &quot;&lt;BODY BGCOLOR='BEIGE'&gt;&lt;H1&gt;Thank you. 
&quot;;</b> <br>
<b>print &quot;Your comments have been added&lt;/H1&gt;&quot;;</b> </span></p>

<p><span class="smallfont">#******** END BODY************************ <br>
</span></p>

<hr WIDTH="100%">

<p><span class="smallfont">代码的第一行是:</span></p>

<p><span class="smallfont">open (LOGFILE, &quot;&gt;&gt;guestbook.log&quot;); </span></p>

<p><span class="smallfont">这行为要写的guestbook.log做准备。open命令用来打开文件进行输入和输出。这里的&quot;LOGFILE&quot;称为文件句柄。后面,当我想对guestbook.log文件进行附加操作时,可以用print 
LOGFILE。对于程序的其余部分,LOGFILE就表示guestbook.log。后面的文件名以两个大于号开始,这是常用的文件操作方式中的一种,我们常用的操作方式有三种:</span>

<ol>
  <li><span class="smallfont">&lt; - 打开文件进行输入操作(读文件)。</span></li>
  <li><span class="smallfont">&gt; - 打开文件进行写操作(覆盖文件)。</span></li>
  <li><span class="smallfont">&gt;&gt; - 附加操作。</span></li>
</ol>

<p><span class="smallfont">下一行是join语句。这是一个把数据加入无限制的文本文件的非常有用的工具。$newline=join('::',@value); 
表示在数组@value中的每个值之间加入两个分号。</span></p>

<p><span class="smallfont">$newline现在包含的内容为:</span></p>

<p><span class="smallfont">Robert::Young::5 Main St.::Anytown::MA::02177::(617) 
555-1212::robyoung@mediaone.net::on::This is Great </span></p>

<p><span class="smallfont">现在可以把$newline加入到guestbook.cgi的最后。因为log文件已经有了一个句柄,可以这样操作:</span></p>

<p><span class="smallfont">print LOGFILE (&quot;$newline\n&quot;); </span></p>

<p><span class="smallfont">并且在$newline后面加一个换行符,以后在加新内容时,将以新行开始。</span></p>

<p><span class="smallfont">close LOGFILE;</span></p>

<p><span class="smallfont">- 关闭文件。</span></p>

<p><span class="smallfont">最后,在屏幕上输出一些信息。这不只是礼节。所以可以这样:</span></p>

<p><span class="smallfont"><b>print &quot;&lt;BODY BGCOLOR=\'BEIGE\'&gt;&lt;H1&gt;Thank 
you.&nbsp; Your comments have been added&lt;/H1&gt;&quot;;</b> </span></p>

<p><span class="smallfont"><a href="day5_3.html">&gt;&gt;</a> </span></p>
</body>
<!-- #EndTemplate -->
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -