挫折なり…。 途中までは結構いい線で行っていたのだけれど、なんだか分からなくなって、放棄した。 #!/usr/local/bin/perlsub analyze { my ($logfile) = @_; open (LOG, "access_log.20030901") or die "Could not open log !"; while ($line = ) { @times …