livedoor Techブログ : 公開わたしのスクリプト 〜ログの読み方編〜do$です。 えーと。まずこの美しくないスクリプトを晒します。（特に読まなくてOK!） #!/usr/local/bin/perl -w # <***/> use strict; my $access_log = '/usr/local/apache/logs/access_log'; my %mail_header = ('Return-Path' => 'return@example.com', 'From' => 'from@example.com', 'To' => 'to@example.com', 'Subject' => 'FooBar-test', 'X-FooBarLog' => 'TEST'); my %cgis; my $line_s; my $line_e; my $all_line; my %status_code; my $log_str_500; { ## h
