Script que despliega la fecha escrito en Perl

[Ricardo de Jesús Pelcastre Cervantes]

El siguiente es un interesante script que puede salvarnos a muchos a la
hora de insertar un formato de fechas.

#!/sbin/sh
#
# Script que despliega la fecha en el formato: Mar 12-DIC-1973
#

DIA=`date +%a`
MES=`date +%b`
D=`date +%d`
A=`date +%Y`

case $DIA in
'Sun') DIAS='Dom'
;;
'Mon') DIAS='Lun'
;;
'Tue') DIAS='Mar'
;;
'Wed') DIAS='Mie'
;;
'Thu') DIAS='Jue'
;;
'Fri') DIAS='Vie'
;;
'Sat') DIAS='Sab'
;;
esac

case $MES in
'Jan') MESS='ENE'
;;
'Feb') MESS='FEB'
;;
'Mar') MESS='MAR'
;;
'Apr') MESS='ABR'
;;
'May') MESS='MAY'
;;
'Jun') MESS='JUN'
;;
'Jul') MESS='JUL'
;;
'Aug') MESS='AGO'
;;
'Sep') MESS='SEP'
;;
'Oct') MESS='OCT'
;;
'Nov') MESS='NOV'
;;
'Dec') MESS='DIC'
;;
esac

echo "$DIAS $D-$MESS-$A"