# ログを展開 open(IN,"$logfile$DAT{'camp'}.cgi") || &error("Open Error : $logfile$DAT{'camp'}.cgi"); local $log_last_flag=0; while (<IN>) { $log_last_flag++; if($log_last_flag < $open + 1){ next; }# <--追加 if($log_last_flag > $open + $log_last){ last; }# <--追加 # 省略 # last if $log_last_flag > $log_last;<--コメントアウト close(IN);