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中,当它看到$时,就会使用变量的内容。不错,是吧?但是要注意,只有双引号才能这样,单引号只是从字面上引用其中的内容。
Java Asp PHP .Net XML C/C++ CGI VB Jsp J2ee J2se J2me EJB Servlet Tomcat Resin Struts Weblogic Eclipse ANT GUI JMS Web servise IDEA Webphere Hibernate Spring Jboss Applet Swing Socket Javamail Perl Ajax P2P 安全 模式 框架 测试 开源 游戏
Windows XP Windows 2000 Windows 2003 Windows Me Windows 9.x Linux UNIX 注册表 操作系统 服务器 应用服务器