9.サンプルで学習してみよう

9.サンプルで学習してみよう_その1

ここでは、簡単な機能のBBSを作りながら Perl CGI の動作を学習してみたいと思います。
センスの悪さはカンベンしてちょ!

1.サンプル仕様

BBSの基本項目として次のような画面構成とします。

お名前

ホームページ

E-Mail

記事

処理は１つのソース(sample_1.cgi)中で行われるものとし、簡単な入力チェックののち１つのデータ・ファイル(data_1.txt)にテキスト形式で書き込まれるものとします。
日本語変換ライブラリとして jcode.pl を使います。

処理ルーチンの構成は次のようになっています。

ルーチン名機能

メインルーチン基本的なデータの取得や処理の流れを決める

html_make HTMLドキュメントを生成する

data_put データ書き込みをおこなう

error_check エラー処理を行う。

2.各処理の解説

(1)メインルーチン

ソースをごらんください。コメントで解説しています。

#! /usr/bin/perl # Perlへのパス↑の行が先頭行になる様にする。 # perlの所在はプロバイダにより異なりますので注意する。 require './jcode.pl'; # 日本語変換ライブラリのパス、既にあればそこまでのパスを指定する。 ################################################################################ # 初期設定 # ↓ データ書き込み後にリロードする時のURL $this_url = 'http://takaq1.plala.jp/contents/homepage/cgi/sample_1/sample_1.cgi'; $data_file = './data_1.dat'; # 投稿したデータを書き込むファイル # ################################################################################ # 現在日付と時刻を取得しそれぞれフォーマット編集する # localtime関数で取得 $ENV{'TZ'} = "JST-9"; $now = time; ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($now); $year += 1900; $mon = sprintf("%02d", $mon + 1); # 月の戻り値は0～11なので+1して合わせる $mday = sprintf("%02d", $mday); # 日を2桁 $hour = sprintf("%02d", $hour); # 時を2桁 $min = sprintf("%02d", $min); # 分を2桁 $now_time = "$year年$mon月$mday日 $hour時$min分"; # 現在年月日時分 # フォームに書き込まれたデータを「$input_data」に保存します。 # メソッドによって取得方法が異なりますがPOSTでもGETでも取得で # きるようにしています if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $input_data, $ENV{'CONTENT_LENGTH'}); } else { $input_data = $ENV{'QUERY_STRING'}; } # フォームからのデータを分解する # フォームからのデータは「&」で区切られてくるので分解してペアにする @input = split(/&/,$input_data); foreach $data (@input) { ($name, $value) = split(/=/, $data); # 要らない文字の削除・デコードとタグを禁止する $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s/</</g; $value =~ s/>/>/g; $value =~ s/\n//g; $value =~ s/\,//g; # jcode.plを呼び出してShift JISに変換 &jcode'convert(*value, 'sjis'); # 分解したデータを連想配列に格納 $FORM{$name} = $value; } # 「$FORM{'action'}」が「true」ならフォームからの呼び出しなので書き込みへ # 初めての呼び出しの場合はHTML作成ルーチンへ if ($FORM{'action'} eq "true") { &data_put; } else{ &html_make; }

(2)HTMLドキュメント生成ルーチン

ソースをごらんください。コメントで解説しています。

################################################################################ # HTMLドキュメント生成ルーチン sub html_make { # サブルーチンの名前定義 if (!open(FILE, "$data_file")) { # データファイルを開く &error_check(bad_file); # エラーの時はメッセージを表示 } @DATA = <FILE>; # データを配列に格納 close(FILE); # データファイルを閉じる @DATA = reverse(@DATA); # 読み込みデータを新しい順にソート # HTMLヘッダ部生成 print "Content-type: text/html\n\n"; print "<!DOCTYPE HTML PUBLIC -//IETF//DTD HTML//EN>\n"; print "<html>\n"; print "<head>\n"; print "<meta http-equiv=Content-Type content= text/html; charset=x-sjis>\n"; print "<title>サンプル BBS_1</title></head>\n"; # HTML本文 print "<body bgcolor=#000000 text=#FFFFFF>\n"; # バックと文字の色 # 入力フォーム print "<form action=sample_1.cgi method=POST>\n"; print "<input type=hidden name=action value=true>\n"; print "<div align=center><center>\n"; print "<table border=1 cellspacing=1>\n"; print "<tr>\n"; print "<td align=center>お名前</td>\n"; # お名前 print "<td><input type=text aize=20 name=name></td>\n"; print "</tr>\n"; print "<tr>\n"; print "<td align=center>ホームページ</td>\n"; # ホームページ print "<td><input type=text aize=50 name=url></td>\n"; print "</tr>\n"; print "<tr>\n"; print "<td align=center>E-Mail</td>\n"; # E-Mail print "<td><input type=text aize=20 name=mail></td>\n"; print "</tr>\n"; print "<tr>\n"; print "<td align=center>記事</td>\n"; # 記事 print "<td><textarea name=kiji rows=4 cols=50></textarea></td>\n"; print "</tr>\n"; # 押しちゃうボタン print "<tr>\n"; print "<td align=center colspan=2><input type=submit value=押しちゃう></td>\n"; print "</tr>\n"; print "</table></center></div>\n"; print "</form>\n"; # 記事の表示 data_1.datのデータを行単位で表示します。 print "<div align=center><center>\n"; foreach $line_data (@DATA) { chop($line_data); # 行末の改行を削除 # 1行のデータを各項目に分解 ($date, $name, $url, $mail, $kiji) = split(/\, /, $line_data); # $kiji中の「\r」(改行文字)を「<br>」に変換して入力に合わせる $kiji =~ s/\r/<br>/g; print "<table border=0 width=80% bgcolor=#FFFFFF>\n"; print "<tr>\n"; print "<td><font color=#000000>\n"; # URL、E-mailが入力されていればリンクをつける if ($url ne "" || $mail ne "") { # どちらかに入力あり if ($url ne "" && $mail ne "") { # 両方あり print "<a href=$url>ホームページ</a> <a href=mailto:$mail><strong>$name</strong></a>\n"; } if ($url ne "" && $mail eq "") { # URLのみあり print "<a href=$url>ホームページ</a> <strong>$name</strong>\n"; } if ($url eq "" && $mail ne "") { # Mailのみあり print "ホームページ <a href=mailto:$mail><strong>$name</strong></a>\n"; } } else { # どちらも入力なし print "<strong>$name</strong></a>\n"; } print " $date<br>\n"; # 登録日付の表示 print "<blockquote>$kiji</blockquote>\n"; # 記事の表示 print "</font>\n"; print "</td>\n"; print "</tr>\n"; print "</table>\n"; print "<p>"; } print "</center></div>\n"; print "</body></html>\n"; exit; }

(3)データ書き込みルーチン

ソースをごらんください。コメントで解説しています。

################################################################################ # データ書き込みルーチン sub data_put { if ($FORM{'name'} eq "") { # 名前の入力が無い &error_check(bad_name); # エラー処理へ } if ($FORM{'kiji'} eq "") { # 記事の入力が無い &error_check(bad_kiji); # エラー処理へ } if (!open(FILE, ">>$data_file")) { # データファイルを追加モードで開く &error_check(bad_file); # オープン失敗はエラー処理へ } # 書き込みデータのフォーマット編集 $value = "$now_time\, $FORM{'name'}\, $FORM{'url'}\, $FORM{'mail'}\, $FORM{'kiji'}\n"; print FILE $value; # ファイルの最後に書き込み close(FILE); # データファイルを閉じる print "Location: $this_url" . '?' . "\n\n"; # リロード }

(4)エラー処理ルーチン

ソースをごらんください。コメントで解説しています。

################################################################################ # エラー処理ルーチン sub error_check { $error_name = $_[0]; # 引数配列の先頭(エラー名)を確保 if ($error_name eq "bad_file") { # ファイル処理失敗 $msg = 'ファイルのオープンか入出力に失敗しました。'; } elsif ($error_name eq "bad_name") { # 名前未入力 $msg = '名前が入力されていません。'; } elsif ($error_name eq "bad_kiji") { # 記事未入力 $msg = '記事が入力されていません。'; } else { # 予期せぬエラー $msg = '予期せぬエラーが発生しました。'; } print "Content-type: text/html\n\n"; # メッセージの表示 print "<html><head><title>サンプル BBS_1</title></head>\n"; print "<body bgcolor=#000000 text=#FFFFFF LINK=#FFAAAA VLINK=#FF8888>\n"; print "<p>\n"; print "<center><h2>エラー</h2><hr>\n"; print "<i>" . $msg . "</i></hr></center>\n"; print "</body></html>\n"; exit; # 終了しちゃう }

3.テスト

注.このスクリプトでは、データが無い時のデータファイル・チェックが無いので、予め空の「data_1.dat」 (666) を作っておきましょう。

(1)まずは、スクリプトの記述ミスやサーバーへftp転送時のモード指定誤り、パーミッション指定の誤りが無いか確認します。

※Internal Server Error が無くなるまでテストしましょう。

ホームページ・スペースを借りている場合は、サーバーに負荷かけるし場合によってはサーバー・ダウンなんてことになりかねません。
それに、エラーの内容がPHPのように画面で確認できないのでできれば、自分のPC内で実験してからホームページのあるサーバーにアップロードすべきでしょう。

(2)次に正常入力をチェックしましょう。

このスクリプトでは、名前と記事が入力必須になっております。
したがって、「名前、URL、メールアドレス、記事」の全てが入力された場合、「名前、URLまたはメールアドレス、記事」が入力された場合、「名前と記事」が入力された場合が正常入力にあたります。
さらに、メールアドレスが入力された場合は名前にメールアドレスへのリンクがつきます。
URLが入力された場合はURLへのリンクがつきます。

名前か記事が未入力かその両方が未入力の場合はエラーを表示します。

(3)そして、登録されたデータが正しくリロードされることとデータファイルが期待どおりに書かれているかを確認します。

データファイルはエディタで開くまではよいのですが、書き込みしてアップロードはやめましょう。「改行」が入ってリロードおかしくなります。

ここクリックで実行できます。→　ソースはここクリックしてください。

【戻る】

ルーチン名	機能
メインルーチン	基本的なデータの取得や処理の流れを決める
html_make	HTMLドキュメントを生成する
data_put	データ書き込みをおこなう
error_check	エラー処理を行う。