△▲ WebProg 初心者の質問 Part15 ▼▽at PHP△▲ WebProg 初心者の質問 Part15 ▼▽ - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト143:nobodyさん 07/02/26 18:51:14 >>142 open(IN,"$bbslog") || &error("Open Error : $bbslogfile"); @lines =<IN>; $comment #投稿されたコメント $beforehand = (split(/<>/, $lines[-1]))[4] #最後に投稿されたコメント if($comment eq $beforehand){error('二重投稿です');} #同じであればエラー処理 一応解説すると、配列の最後にあるデータが最新のデータなので$lines[-1]で指定。 もし、一番最初が最新のデータなら$lines[0]でおｋ split関数でデータ区切り文字<>の5番目の文字を$beforehandに格納 eq で比較して同じであればエラー。 144:nobodyさん 07/02/27 02:43:33 ここでいいのかな。 http://perl.toshinari.net/cgi/bbs/new2ch/index2.html の2ｃｈ掲示板についての質問なのですが、2ｃｈでいう「!test」で「テスト」と名前をを表示させるのはどうすればいいのでしょうか？ 名前の変数は$in{'FROM'}なので if($in{'FROM'} =~ /!test/) { $in{'FROM'}="テスト\n"; } と考えたのですが、うまく表示されません。 !testを抽出する部分まではあっているとおもうのですが、名前の値を返すにはどうすればいいのでしょうか？ 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch