Rumah > Artikel > pembangunan bahagian belakang > 如何创建一个简单的Perl CGI

如何创建一个简单的Perl CGI

藏色散人asal: 2019-01-17 14:54:056740semak imbas

CGI脚本可以是简单的，也可以是复杂的。它可以是Perl、Java、Python或任何编程语言。在其核心，CGI应用程序只是通过HTTP(通常是web浏览器)接受请求并返回HTML。让我们看一个简单的Perl Hello World CGI脚本，并将其分解为最简单的表单。

如何创建一个简单的Perl 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>
<h1>A Simple Perl CGI</h1>
<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 <

A Simple Perl CGI


A Simple Perl CGI
$theTime

HTML
exit;

这个新的CGI脚本将在每次调用脚本时将当前日期插入页面。换句话说，它变成了一个随着日期变化而变化的动态文档，而不是静态文档。

Atas ialah kandungan terperinci 如何创建一个简单的Perl CGI. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!

Python Java perl html print CGI http

Kenyataan：

Kandungan artikel ini disumbangkan secara sukarela oleh netizen, dan hak cipta adalah milik pengarang asal. Laman web ini tidak memikul tanggungjawab undang-undang yang sepadan. Jika anda menemui sebarang kandungan yang disyaki plagiarisme atau pelanggaran, sila hubungi admin@php.cn

Artikel sebelumnya：Ruby如何创建数组Artikel seterusnya：如何从Perl中的目录中分辨文件

Artikel berkaitan

Lihat lagi