Simple PERL colorizer

colorizer.pl

#!/usr/bin/perl -w
use Term::ANSIColor;
use POSIX qw(strftime);
use Getopt::Long;
Getopt::Long::Configure("no_ignore_case");

%colors = (
'DEBUG'	=> 'yellow',
'INFO'	=> 'green',
'WARN'	=> 'cyan',
'ERROR'	=> 'red',
'FATAL'	=> 'red',
);

# main loop
while(<STDIN>) {
	chomp($_);
	local $line = $_;
	my $matched = 0;
	my $selected;
	while ((($pattern, $color) = each(%colors)) && !$selected)
	{
		if($line =~ /($pattern)/) {
			$selected = $color;
		}
	}
	keys %colors;

	if(!$selected) {
		$selected = 'white';
	}
	print colored($line, $selected), "\n";
}


# vim: ts=4:sw=4