aaa
http://www6.atpages.jp/aurora72source2/cgi/test005/test/test02.cgi
gen0001
aaa
#!/usr/local/bin/perl
# 上の1行の前には空行も空白文字もはいらないようにしてください。
# perlのパス名はプロバイダや環境に合わせて変更してください。
#require "jcode.pl";
sub resheadprint {
print "<HTML>\n";
print "<HEAD>\n";
print "<TITLE>CGI TEST</TITLE>\n";
print "</HEAD>\n";
print "<BODY BGCOLOR='#FFFFFF' TEXT='#000000'>\n";
print("===========================================<br>\n");
print("<br>\n");
}
sub restailprint {
#
# HTMLの終わりの部分を書き出します。
#
print "</XMP>\n";
print "</BODY>\n";
print "</HTML>\n";
print "\n";
}
sub headprint {
# print OUT "$_<BR>\n";
print OUT "<HTML>\n";
print OUT "<HEAD>\n";
print OUT "<TITLE>CGI TEST</TITLE>\n";
print OUT "</HEAD>\n";
print OUT "<BODY BGCOLOR='#FFFFFF' TEXT='#000000'>\n";
print OUT "===========================================<br>\n";
print OUT "<br>\n";
}
sub tailprint {
#
# HTMLの終わりの部分を書き出します。
#
print OUT "</XMP>\n";
print OUT "</BODY>\n";
print OUT "</HTML>\n";
print OUT "\n";
}
#
# CGIのヘッダを書き出します。通常は text/html を指定します。
#
print "Content-type: text/html\n";
print "\n";
&resheadprint();
# &headprint();
# &tailprint();
&restailprint();
aaa