CGI 自修教材 Perl 測試腳本程式

#!/usr/bin/perl
use CGI qw(:cgi);

sub Use_html {
print"Content-type:text/html\n\n" ;
print<<Begin_of_Html
<HTML><HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html";charset="big5">
</HEAD>
<BODY BGCOLOR=#f8f4e7 LINK=#0000ff VLINK=#436eee ALINK=#b22222>
Begin_of_Html
;}

sub End_html {
print<<END_of_Html
</BODY></HTML>
END_of_Html
;}

Use_html();
print("<P>\nHello, world.\n");
End_html();

[ 回上層 ] [an error occurred while processing this directive] 單維彰 (01/04/11) ---