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,
'
