Consulta o RAE cun simple script

Veño de atopar en gulo.org un script que é do máis simpático para facer consultas sobre o idioma castelán. Algo moi simplón pero á vez útil e efectivo, así que aquí volo deixo para que lle votedes un ollo… a ver para cando algo así en galego 😉

drae.sh, por Javier Carranza (posteado por Teófilo Ruíz Suárez)
#!/bin/bash
trap “rm -rf /tmp/drae.$$” 1 2 3 9 15
lynx -dump –nolist “http://buscon.rae.es/draeI/SrvltGUIBusUsual?TIPO_HTML=2&LEMA=$1” > /tmp/drae.$$
cat /tmp/drae.$$ 2> /dev/null | tail -n $((`wc -l /tmp/drae.$$ 2> /dev/null | awk ‘{ print $1 ;}’`-2)) | more
echo
if [ -f /tmp/drae.$$ ]
then rm /tmp/drae.$$
fi
Unha versión ampliada por Javier Fernández-Sanguino Peña, e con correccións de Marcelo E. Magallón
#!/bin/bash
# Programa para acceder al diccionario de la RAE
# (c) 2003 Javier Fernandez-Sanguino Peña
# Distribuido bajo los términos de la licencia GNU GPL
# ver http://www.gnu.org
error () {
# Salir con error
echo “ERROR: $1”
exit 1
}
setup () {
# Definir el entorno inicial
[ -z “$PAGER” ] && PAGER=more
DIR=”$HOME”
# Si no hay $HOME lamentablemente tenemos que utilizar otro
# directorio… aunque aquí se podría abortar
[ -z “$DIR” ] && DIR=”/tmp/”
[ ! -d “$DIR” ] && error “No existe el directorio $DIR para almacenamiento temporal”
# Determine how to set the tempfile
if [ -n “`which tempfile`” ]; then
draetmp=`tempfile -d $DIR –prefix=.`
[ -e “$draetmp” ] || error “Tempfile no ha podido crear el fichero temporal $draetmp!”
else
draetmp=$DIR/drae.$$
if [ ! -e “$draetmp” ] ; then
>$draetmp
else
error “Alguien ha creado ya el fichero temporal $draetmp!”
fi
fi
trap “rm -rf $draetmp” 1 2 3 9 15
if [ -n “`which lynx`” ]; then
DOWNLOAD=”lynx –dump –nolist”;
elif [ -n “`which links`” ]; then
DOWNLOAD=”links -dump”;
elif [ -n “`which w3ma`” ]; then
DOWNLOAD=”w3m -dump -T text/html -s”;
else
error “No se encuentra un programa que pueda ser utilizado para acceder al diccionario”;
fi
}
# Inicio del programa
# TODO si se busca más de una iterar por ellas
[ -z “$1” ] && error “Modo de uso: $0 palabra”
setup
$DOWNLOAD “http://buscon.rae.es/draeI/SrvltGUIBusUsual?TIPO_HTML=2&LEMA=$1” > $draetmp
[ $? -ne 0 ] && error “Error al acceder a buscon.rae.es”
if [ -f “$draetmp” ]
then
cat $draetmp 2> /dev/null | tail -n $((`wc -l $draetmp 2> /dev/null | awk ‘{ print $1 ;}’`-2)) | $PAGER
echo
rm $draetmp
else
error “Error al acceder al fichero temporal $draetmp (no creado)”
fi
exit 0
Resultado de face-la consulta drae.sh golfo
1. m. Gran porción de mar que se interna en la tierra entre dos cabos.
El golfo de Venecia.
2. m. Toda la extensión del mar.
3. m. Gran extensión de mar que dista mucho de tierra por todas
partes, y en la cual no se encuentran islas. El golfo de las Damas. El
golfo de las Yeguas.
4. m. Cierto juego de envite.
____________________________________________________
golfo^2, fa.
(De golfín^2, por der. regres.).
1. adj. deshonesto ( falto de honestidad).
2. m. y f. Pillo, sinvergüenza, holgazán. U. t. c. adj.
3. f. prostituta.
____________________________________________________
golfo^3.
(Del lat. gomphus, pernio, y este del gr. g¹µfo*s).
1. m. Ar. pernio.
Real Academia Española © Todos los derechos reservados