On 01/06/2011 18:55, Peter Edwards wrote: > Here's an idiot simple code colorizer for logs / diffs that I use quite a > lot > http://blogs.perl.org/users/peter_edwards/2010/08/colorized-perl-code-snippets-on-ansi-terminals.html
Here's my idiot simple log colorizer: use Config::Auto; use Term::ANSIColor; $|=1; my %config = %{Config::Auto::parse()}; while (<>) { for my $re (keys %config) { /$re/i && print color($config{$re}) } chomp; print $_, color('reset'),"\n"; }