📄 day3_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> </b></p>
<p><span class="smallfont"><b>CGI入门教程<br>
</b><br>
<font color="#FF0000">第一页</font> <a href="day3_1.html">回应脚本</a><br>
<font color="#FF0000">第二页</font> <a href="day3_2.html">脚本解释</a><br>
<font color="#FF0000">第三页</font> BODY部分</span></p>
<p><span class="smallfont">[<a href="day1_1.html">第1天</a>][<a href="day2_1.html">第2天</a>][第3天][<a
href="day4_1.html">第4天</a>][<a href="day5_1.html">第5天</a>][<a href="day6_1.html">第6天</a>][<a
href="../perl.htm">返回</a>]</span></p>
<p><span class="smallfont"><b>第三页：BODY部分</b></span></p>
<p><span class="smallfont">#*****************BEGIN BODY************* </span></p>
<p><span class="smallfont"><b>print "<h1>Thank you for filling out the
form</h1>";</b> </span></p>
<p><span class="smallfont"><b>$firstname = $value[0];</b> <br>
<b>$lastname = $value[1];</b> <br>
<b>$email = $value[2];</b> <br>
<b> </b> <br>
<b>print "Your first name is $firstname<BR>";</b> <br>
<b>print "Your last name is $lastname<BR>";</b> <br>
<b>print "Your e-mail is $email<BR>";</b> <br>
<br>
#***************END BODY****************** <br>
</span></p>
<hr WIDTH="100%">
<p><span class="smallfont">对于Perl，我们需要知道：</span>
<ol>
<li><span class="smallfont">每行以分号结束。</span></li>
<li><span class="smallfont">变量以$开始。</span></li>
</ol>
<p><span class="smallfont">第一行很直接 - print将打印随后的内容到屏幕上。要打印的内容必须在引号内，其中可以包含HTML标记符。</span></p>
<p><span class="smallfont">readparse子过程自动把HTML FORM中的内容放入一个称为value的数组中。这样，第一个文本框中的内容是$value[0]，第二个文本框中的内容是$value[1]，等等
- 数组下标以0开始。</span></p>
<p><span class="smallfont">第二行我们执行命令：<br>
$firstname = $value[0]; <br>
这个语句创建一个称为$firstname的新变量，把$value[0]的内容赋给它。这意味着在HTML
FORM中第一个文本框中输入的信息将包含在变量$firstname中。</span></p>
<p><span class="smallfont">第三行和第四行与此类似：<br>
$lastname = $value[1]; $email = $value[2]; <br>
很明显，这两行分别把第二个和第三个文本框中的内容赋给变量$lastname和$email。</span></p>
<p><span class="smallfont">程序的最后三行把文本和变量打印到屏幕上。</span></p>
<p><span class="smallfont"><b> print "Your first name is
$firstname<BR>";</b> <br>
<b> print "Your last name is $lastname<BR>";</b> <br>
<b> print "Your e-mail is $email<BR>";</b> </span></p>
<p><span class="smallfont">注意变量被包含在双引号中。在其它语言，如JavaScript中，我们必须显式的连接文本和变量。在Perl中，当它看到$时，就会使用变量的内容。不错，是吧？但是要注意，只有双引号才能这样，单引号只是从字面上引用其中的内容。</span></p>
</body>
<!-- #EndTemplate -->
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -