△▲ WebProg 初心者 ..
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このｽﾚｯﾄﾞの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を抽出する部分まではあっているとおもうのですが、名前の値を返すにはどうすればいいのでしょうか？
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック！
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
4188日前に更新/250 KB
担当:undef