|
 |
资料搜索 |
|
|
|
|
|
|
|
|
相关文章 |
|
|
|
|
|
|
|
|
|
|
| [ 来源：转载 | 作者：无从考证 | 时间：2005-11-17 11:53:25 | 浏览：人次 ] | |
|
Cgi入门教程之：9 BODY部分
BODY部分
#*****************BEGIN BODY*************
print "<h1>Thank you for filling out the form</h1>";
$firstname = $value[0];
$lastname = $value[1];
$email = $value[2];
print "Your first name is $firstname<BR>";
print "Your last name is $lastname<BR>";
print "Your e-mail is $email<BR>";
#***************END BODY******************
--------------------------------------------------------------------------------
对于Perl，我们需要知道：
每行以分号结束。
变量以$开始。
第一行很直接 - print将打印随后的内容到屏幕上。要打印的内容必须在引号内，其中可以包含HTML标记符。
readparse子过程自动把HTML FORM中的内容放入一个称为value的数组中。这样，第一个文本框中的内容是$value[0]，第二个文本框中的内容是$value[1]，等等 - 数组下标以0开始。
第二行我们执行命令：
$firstname = $value[0];
这个语句创建一个称为$firstname的新变量，把$value[0]的内容赋给它。这意味着在HTML FORM中第一个文本框中输入的信息将包含在变量$firstname中。
第三行和第四行与此类似：
$lastname = $value[1]; $email = $value[2];
很明显，这两行分别把第二个和第三个文本框中的内容赋给变量$lastname和$email。
程序的最后三行把文本和变量打印到屏幕上。
print "Your first name is $firstname<BR>";
print "Your last name is $lastname<BR>";
print "Your e-mail is $email<BR>";
注意变量被包含在双引号中。在其它语言，如javascript中，我们必须显式的连接文本和变量。在Perl中，当它看到$时，就会使用变量的内容。不错，是吧？但是要注意，只有双引号才能这样，单引号只是从字面上引用其中的内容。
|
|
|
|
|
|
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
|
|
|
|
|
栏目编辑： 设计风 |
责任编辑： 简若宁 |
|
|
原始作者： 无从考证 |
录入时间： 2005-11-17 11:53:25 |
|
|
信息来源： 转载 |
投稿信箱： Edu#chinaz.com |
|
|
|
| |
|
设为首页
加入收藏
总编信箱
投稿或申请专栏请先 [登 陆]
