当前第2页 返回上一页
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | #!/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>
HTML
exit;
|
这个新的CGI脚本将在每次调用脚本时将当前日期插入页面。换句话说，它变成了一个随着日期变化而变化的动态文档，而不是静态文档。
以上就是如何创建一个简单的Perl CGI的详细内容！
返回前面的内容
相关阅读 >>
如何创建一个简单的Perl cgi
更多相关阅读请进入《如何创建一个简单的Perl》频道 >>
清华大学出版社
作者:[美]克里斯琴·内格尔（Christian Nagel）著。出版时间：2019年3月。
转载请注明出处：木庄网络博客 » 如何创建一个简单的Perl CGI
