这篇文章将为大家详细讲解有关创建一个简单Perl CGI的方法，小编觉得挺实用的，因此分享给大家做个参考，希望大家阅读完这篇文章后可以有所收获。
CGI脚本可以是简单的，也可以是复杂的。它可以是Perl、Java、Python或任何编程语言。在其核心，CGI应用程序只是通过HTTP(通常是web浏览器)接受请求并返回HTML。让我们看一个简单的Perl Hello World CGI脚本，并将其分解为最简单的表单。
'Hello World'CGI Perl脚本
#!/usr/bin/perl print "Content-type: text/html\n\n"; print <<HTML; <html> <head> <title>A Simple Perl CGI</title> </head> <body> <h2>A Simple Perl CGI</h2> <p>Hello World</p> </body> HTML exit;
如果您在命令行上运行该程序，您将看到它所做的正是您所期望的。首先，它打印内容类型行，然后打印原始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> <h2>A Simple Perl CGI</h2> <p>$theTime</p> </body> HTML exit;
这个新的CGI脚本将在每次调用脚本时将当前日期插入页面。换句话说，它变成了一个随着日期变化而变化的动态文档，而不是静态文档。
关于创建一个简单Perl CGI的方法就分享到这里了，希望以上内容可以对大家有一定的帮助，可以学到更多知识。如果觉得文章不错，可以把它分享出去让更多的人看到。
免责声明：本站发布的内容（图片、视频和文字）以原创、转载和分享为主，文章观点不代表本网站立场，如果涉及侵权请联系站长邮箱：is@yisu.com进行举报，并提供相关证据，一经查实，将立刻删除涉嫌侵权内容。
