It would be nice if you could parametrize data to: adapt to other log formats, and to other locales (just a different .ini file).

Use Term::ANSIColor for color coding. A color shift says more than 1K. words!

Perhaps, using this code, if you only need the days of the week locale...

perl -MPOSIX -Mlocale -e'               ## GET LOCAL DATES AND NAMES
my ($tnow,$gday)=(time,int(60*60*24));  ## TODAY IN SECONDS, SECONDS I
+N ONE DAY (4 ADDING)
my %wd;
$wd{(localtime($tnow+($gday*$_)))[6]}=strftime("%a",localtime(($gday*$
+_)+$tnow)) foreach (0..6);                                 ## RELATE 
+NUM. OF DAY OF THE WEEK WITH ITS NAME
print("$wd{$_}, ") foreach (sort(keys(%wd))); ## DISPLAY NAMES IN ORDE
+R (SEE LAST LINE)
print $/                                ## (WEEK DAYS IN SPANISH)
__END__
dom, lun, mar, mié, jue, vie, sáb,
'
[download]