△▲　WebProg 初心者の質問 Part15　▼▽

△▲　WebProg 初心者 ..

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 で比較して同じであればエラー。

次ページ