or download this
($level, $computer, $iod, $comment, $min_value, $min_time, $max_value,
+ $max_time)=
/^\s*(\d),(\w+),([\d\.]+),([^,]+),([^,]+),(\d+:\d+),([^,]+),(\d+:\d+)
+,.*$/
...
$max_time="$hour:$min";
}
print LOG (join ',', $level, $computer, $iod, $comment,$ min_value, $m
+in_time, $max_value, $max_time, $clip, "$hour:$min"), "\n";