掲示板の文字色指定について

解決済

質問者：kikko00
質問日時：2009/08/02 23:43
回答数：2件

はじめまして。私は学生で超のつく初心者なのですが、課題で掲示板を作っています。
基本的な表示はなんとかうまくいったのですが、よくある、文字色を選択して好きな色で文章（コメント）を表示させるプログラムがわかりません。
if文を使うパターンではなく、色の情報を書き込み、ファイルからデータを読み込むやり方でできるらしいのですが、どうやって書いたらよいのでしょうか・・・。
ちなみにhtml表示部分に、色の指定はしてあり、赤、青、緑、黄色でvalueはred,blue,green,yellowにしています。
下に書き込みと読み込みの部分を乗せたのですがどう入れたらいいでしょうか。
本当に初心者だし分かっていないので説明もわかりにくくてすいません。もしどなたか分かる方いたらよろしくお願いします。
#------------------------------------------------------------
# 登録データ書き込み処理
#------------------------------------------------------------

sub writeData() {

#　$DATAFILEをオープンする
open(FILE, ">> $DATAFILE") or die("error:$DATAFILE open error!");
eval{ flock(FILE, 2); };

$timestr = &getTimestr();
$in{'comment'} =~ s/\n/<br>/g;

print FILE "$in{'namae'},$in{'dai'},$in{'comment'},$timestr,";

close(FILE);
}
#------------------------------------------------------------
# 登録データ読込み処理
#------------------------------------------------------------
sub readData() {
#　$DATAFILEをオープンする
open(FILE, "< $DATAFILE");
eval{ flock(FILE, 2); };

while(<FILE>){
chomp;
$line[$cnt++] = $_;
}
close(FILE);
}

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： WhiteWolf_
回答日時：2009/08/03 18:40

Perl/CGIでしたら多少お力添えできそうです。

color情報をデータに書き込み、読み込むときにそのデータを取り出してタグの内部に利用してやれば良いかと思います。

主に読み込み時に一度配列にファイル内容を取り込み
その後、split関数でデータを分けてtemp_dataという一時的な配列に格納、それを出力。みたいな感じでいかがでしょう。
動作テストしてないので動かないかもしれませんが、考え方の手助けになれれば幸いです。

HTML
<form action="XXX.cgi" method="post">
NAME<input type="text" name="name" />
TITLE<input type="text" name="dai" />
<textarea name="comment">Please Type Any Comment!</textarea>
COLOR
red<input type="radio" name="color" value="red"/>
blue<input type="radio" name="color" value="blue"/>
green<input type="radio" name="color" value="green"/>
<input type="submit" value="書き込み">
</form>

とでもして

CGI側
#書き込み処理
#------------------------------------------------------------
# 登録データ書き込み処理
#------------------------------------------------------------

sub writeData() {

#　$DATAFILEをオープンする
open(FILE, ">> $DATAFILE") or die("error:$DATAFILE open error!");
eval{ flock(FILE, 2); };

$timestr = &getTimestr();
$in{'comment'} =~ s/\n/<br>/g;

print FILE "\n$in{'namae'},$in{'dai'},$in{'comment'},$in{'color'},$timestr,";
#↑不要だったら先頭の\n消してください

close(FILE);
}

# ファイル読み込み
sub readData() {
my @file_data=();
my @temp_data=();

#　$DATAFILEをオープンする
open(FILE, "< $DATAFILE");
eval{ flock(FILE, 2); };
@file_data = <FILE>;
close(FILE);

foreach(@file_data){ #@file_dataを元に一行毎に処理させます
@temp_data = split(/,/);
print "$temp_data[1] (by $temp_data[0] / $temp_data[4]) : <div style=\"color:$temp_data[3]\">$temp_data[2]</div>\n";
}

}