view release on metacpan or  search on metacpan

bin/analyze_apache_logs  view on Meta::CPAN

#!/usr/bin/env perl

### cat logs | analyze_apache_logs

use FindBin;
use lib "$FindBin::Bin/../lib";

use Apache::Log::Parser;

use Getopt::Long qw(:config posix_default no_ignore_case gnu_compat);
my ($detail, $sort, $verbose);
GetOptions(
    "detail|d" => \$detail,
    "sort|s=s" => \$sort,
    "verbose|v" => \$verbose,
);