如何创建一个简单的Perl 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的详细内容，更多请关注其它相关文章！

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！