#!/usr/local/bin/perl
# ヘッダーの出力
print <<"HEADER";
Content-Type: text/html
シンプルBBS記事一覧
シンプルBBS記事一覧(書き込みはこちらから)
HEADER
# 記事の出力
# logfile.datというファイルから現在のカウント数を読み込む
open (IN, "logfile.dat") || &error("読み込みエラーが発生しました。");
@logdata=;
close(IN);
foreach (@logdata) {
# 各行のデータをカンマで区切ってそれぞれの変数へ
($no,$u_name,$subject,$comment,$date) = split(/\,/);
# ヒアドキュメントによる各記事の生成
print <<"HTML";
|
$subject
|
|
$u_name（$date）[No.$no]
|
|
$comment
|
HTML
}
# フッターの表示
print <<"FOOTER";
FOOTER
exit;
# 書き込みのデータ処理はここまで=============================================================
# エラー表示用のサブルーチン
sub error(){
$message = $_[0];
print <<"HTML";
Content-Type: text/html
エラー（$message）
エラー（$message）
HTML
exit;
}
__END__