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