HTMLへ出力する

study1.cgi

#!/usr/local/bin/perl
#★Perlプログラムの場所を最初の行で指定する

#★ 以下に続く出力がHTMLファイルであることをサーバーへ知らせる
## 1行の空白行が必要

print "Content-Type: text/html\n";
print "\n";

#★日本語を使えるようにする
require '../../jcode.pl';

#★ HTMLのヘッダ部分を出力
print "<HTML>\n";
print "<HEAD><TITLE>who?</TITLE></HEAD>\n\n";
print "<BODY background=back.gif>\n";

#★テキスト部分を出力
print "<CENTER>\n";
print "<H1>今からCGIの勉強をします！</H1>\n";
print "2005年5月6日 \n";
print "第1回目はHTMLのテキストを出力します。\n";
print " \n";
print "今度は文字に色を付けてみよ \n";
$name = "スカラ変数";
print "Perlの変数は先頭に＄をつけます。 \n";
print "$nameっていうんだよ \n";
print "$nameには型が無いんだってサ \n";
print "\"ダブルコーテーション\"\n";
print "が必要なときは￥を使う\n";
print "</CENTER>\n";
print "</BODY></HTML>\n";