您好,欢迎来到三六零分类信息网!老站,搜索引擎当天收录,欢迎发信息
免费发信息
三六零分类信息网 > 阜阳分类信息网,免费分类信息发布

如何创建一个简单的Perl CGI

2024/3/4 1:43:44发布13次查看
cgi脚本可以是简单的,也可以是复杂的。它可以是perl、java、python或任何编程语言。在其核心,cgi应用程序只是通过http(通常是web浏览器)接受请求并返回html。让我们看一个简单的perl hello world cgi脚本,并将其分解为最简单的表单。
'hello world'cgi perl脚本
#!/usr/bin/perlprint "content-type: text/html\n\n";print <<html;<html><head><title>a simple perl cgi</title></head><body><h1>a simple perl cgi</h1><p>hello world</p></body>htmlexit;
如果您在命令行上运行该程序,您将看到它所做的正是您所期望的。首先,它打印内容类型行,然后打印原始html。为了在web浏览器中看到它的运行情况,您需要将脚本复制或上载到web服务器,并确保权限设置正确(*nix systems上的chmod 755)。一旦设置正确,您应该能够浏览到它,并在服务器上看到实时显示的页面。
关键行是第一个print语句:
print "content-type: text/html\n\n";
这告诉浏览器,这两个换行之后的文档将是html。您必须发送一个标题,以便浏览器知道接下来的文档类型,并且必须在标题和实际文档之间包含空行。
发送头之后,只需要发送html文档本身。在上面的例子中,我们使用here-doc来简化打印一大块纯文本。当然,这与服务器上有一个纯html文档没有什么不同。当您添加一些奇特的perl编程时,使用perl之类的编程语言来创建html的真正威力就来了。
添加到基本脚本中
在下一个示例中,让我们使用这个时间和日期脚本的一部分,并将其添加到web页面中。
#!/usr/bin/perl@months = qw(jan feb mar apr may jun jul aug sep oct nov dec);@weekdays = qw(sun mon tue wed thu fri sat sun);($second, $minute, $hour, $dayofmonth, $month, $yearoffset, $dayofweek, $dayofyear, $daylightsavings) = localtime();$year = 1900 + $yearoffset;$thetime = "$weekdays[$dayofweek] $months[$month] $dayofmonth, $year";print "content-type: text/html\n\n";print <<html;<html><head><title>a simple perl cgi</title></head><body><h1>a simple perl cgi</h1><p>$thetime</p></body>htmlexit;
这个新的cgi脚本将在每次调用脚本时将当前日期插入页面。换句话说,它变成了一个随着日期变化而变化的动态文档,而不是静态文档。
以上就是如何创建一个简单的perl cgi的详细内容。
阜阳分类信息网,免费分类信息发布

VIP推荐

免费发布信息,免费发布B2B信息网站平台 - 三六零分类信息网 沪ICP备09012988号-2
企业名录