1#!/usr/bin/perl 2###################################################################### 3# color - Print messages colored by level 4###################################################################### 5use strict; 6use warnings; 7 8my $VERSION = "0.01"; 9our $CVSVERSION = '$Revision: 1.1 $'; 10 11use Log::Log4perl qw(:easy); 12Log::Log4perl->init(\ <<'EOT'); 13 log4perl.category = DEBUG, Screen 14 log4perl.appender.Screen = Log::Log4perl::Appender::ScreenColoredLevels 15 log4perl.appender.Screen.layout = \ 16 Log::Log4perl::Layout::PatternLayout 17 log4perl.appender.Screen.layout.ConversionPattern = %d %F{1} %L> %m %n 18EOT 19 20for(1..3) { 21 DEBUG "Debug Message"; 22 INFO "Info Message"; 23 WARN "Warn Message"; 24 ERROR "Error Message"; 25 FATAL "Fatal Message"; 26} 27