-
# ログを展開
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);
|