Rails production log partial timing

production_log_stats.pl

#!/usr/bin/perl

# use with: cat producion.log | perl production_log_stats.pl

use warnings;
use strict;
use List::Util qw(sum);

my $filestats_ref = ();

# collect
foreach my $line ( <STDIN> ) {
  if ( $line =~ m/INFO \-\- \:\s+Rendered\s+([^\s]+)\s+\(([0-9\.]+)ms\)/ ) {
    if (!$filestats_ref->{$1}) {
      $filestats_ref->{$1} = [];
    }
    push($filestats_ref->{$1}, $2);
  }
}

# ouput and calc
foreach my $file ( sort(keys %{$filestats_ref}) ) {
  my @filestats = sort {$a <=> $b} (map { int($_) } @{$filestats_ref->{$file}});

  print "$file || count: " . scalar(@filestats) . ' | min: ' . $filestats[0] .'ms | max: ' . $filestats[-1] . 'ms | avg: '. mean(@filestats) . "ms\n";
}

# helper functions
sub mean {
  return int(sum(@_)/@_);
}