Simple apache logs parser and counter of calls

logs_parser.pl

#!/usr/bin/perl

while (<>) {
  if (/^[^"]+"([A-Z]+)\s([^"? ]+)[^"]*"\s(\d+)/) {
    my $m = $1;
    my $p = $2;
    my $s = $3;

    $p =~ s/^[a-f0-9]{8}(-[a-f0-9]{4}){3}-[a-f0-9]{12}$/{uuid}/;

    $records{ "$m $p [$s]" } += 1;
  }
}

while (my ($key, $value) = each(%records)) {
  print "$key x$value\n";
}

Usage:

cat /var/log/apache.log | perl logs_parser.pl

Output:

GET /foo [200] x123
POST /bar [200] x91
GET /baz [200] x100
GET /baz [500] x31