prettyloggy

#!/usr/bin/perl

use strict;
use warnings;

#use Term::ANSIColor qw( :constants );
use Term::ANSIColor;

my %COL = (
  'DEBUG' => color('magenta'),
  'INFO' => color('blue'),
  'WARNING' => color('yellow'),
  'WARN' => color('yellow'),
  'ERROR' => color('red'),
  'DATE' => color('cyan'),
  'UNKNOWN' => color('bold black')
);

my $RESET = color('reset');

while ( my $line = <> ) {

  # Color log severity tags
  if ( $line =~ m/^(.*?)\[(.*?)\s?\](.*)$/ ) {

    my $COLCODE = $COL{$2} || $COL{'UNKNOWN'};

    $line = "$1\[$COLCODE$2$RESET\]$3\n";

  }

  # Color timestamps

  $line =~ s/(\d{4}-\d{2}-\d{2}\ \d{2}:\d{2}:\d{2},\d{3})/$COL{'DATE'}$1$RESET/g;

  print $line;

}