🚀 go-pugleaf

  This message is in MIME format.  The first part should be readable text,
  while the remaining parts are likely unreadable without MIME-aware tools.

--8323328-689501577-1260189685=:14415
Content-Type: TEXT/PLAIN; charset=ISO-8859-1
Content-Transfer-Encoding: QUOTED-PRINTABLE


Antes se pod=EDa acceder modo texto y en l=EDnea de comandos
al diccionario. Ahora han cambiado el submit por una flechita
gr=E1fica y eso hace inviable el m=E9todo antiguo. =BFAlguien podr=EDa
actualizar el script?

#!/usr/local/bin/perl

use warnings;

# Programa para acceder al diccionario de la RAE
# Distribuido bajo los t=E9rminos de la licencia GNU GPL

if (@ARGV){
    if (-e $ARGV[0] && !-d $ARGV[0]){
=09open IN, "<".$ARGV[0] or die "Cannot open: $!";
=09chomp ($w =3D <IN>);
=09close IN;
    }else{
=09$w =3D $ARGV[0];
    }
}else{
    chomp($w =3D <STDIN>);
}

if (defined $w && $w ne ""){
    $a=3D`lynx -dump -nolist http://buscon.rae.es/draeI/SrvltGUIBusUsual?TI=
PO_HTML=3D2'\&'LEMA=3D'$w'`;
    print $a;
}

__END__
=20
Gracias y saludos=20

--=20
http://www.telecable.es/personales/gamo/
Honesta turpitudo est pro causa bona  --Publilius Syrus
"Was it a car or a cat I saw?"
perl -E 'say 111_111_111**2;'
--8323328-689501577-1260189685=:14415--