憎いPerl

挫折なり…。
途中までは結構いい線で行っていたのだけれど、なんだか分からなくなって、放棄した。

#!/usr/local/bin/perl

sub analyze {
my ($logfile) = @_;
open (LOG, "access_log.20030901") or die "Could not open log !";
while ($line = ) {
@times = split(/\s/, $line);
@times2 = spilit('/','/',':',':',':','\s',$times[3])
$times2[4] =~ /:([1,5])/;
$second_log{$}+15;
}
close LOG;
}

だめだめです。

こんなソースを載せて誰かすごい人にチェックしてもらいたい感を出してみたものの、開くファイルを載せられないのでだめですね。アクセスログなので。

#!/usr/local/bin/perl

open (log, "access_log.20030901") or die "Could not open log !";
while ($line = ) {
@times = split(/\s/, $line);
@times2 = spilit(/[\/\/\:\:\:\s]/, $times[3]);
$times2[4] =~ /:([0][0-5])/;
if($times[3] == 0) || ($times[3] == 15) || ($times[3] == 45)){
$count++;
$average = $count|5;
print"所要時間:$times[3]\s行数\$average";
}
close log;

ここまで直しましたが、やはり６行目で読み込んでくれないようだ。
あきらめて明日出題者に答えを教えてもらうつもりです。

id:lovecatoreさん、どうもありがとう！！