aaahttp://www6.atpages.jp/aurora72source2/cgi/test005/test/test02.cgigen0001aaa#!/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
このサイトはreCAPTCHAによって保護されており、Googleの プライバシーポリシー と 利用規約 が適用されます。
1文字以上入力してください
本文は少なくとも1文字以上必要です。
1文字以上入力してください。