Cambio en la web del DRAE

Thread View: es.comp.os.linux.programacion

2 messages

[T] Back to Threads [V] Tree View [G] Group Articles

2 total messages Started by gamo Mon, 07 Dec 2009 12:41

#217

Author: gamo
Date: Mon, 07 Dec 2009 12:41

48 lines
2276 bytes

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

Re: Cambio en la web del DRAE

#218

Author: Gonzalo Pérez de Olaguer Córdoba
Date: Mon, 07 Dec 2009 13:01

48 lines
2375 bytes

Hola gamo <gamo@telecable.es>
el Mon, 7 Dec 2009 12:41:24 +0000 escribiste:

> 
> Antes se podía acceder modo texto y en línea de comandos
> al diccionario. Ahora han cambiado el submit por una flechita
> gráfica y eso hace inviable el método antiguo. ¿Alguien podría
> actualizar el script?
> 
> #!/usr/local/bin/perl
> 
> use warnings;
> 
> # Programa para acceder al diccionario de la RAE
> # Distribuido bajo los términos de la licencia GNU GPL
> 
> if (@ARGV){
>     if (-e $ARGV[0] && !-d $ARGV[0]){
> 	open IN, "<".$ARGV[0] or die "Cannot open: $!";
> 	chomp ($w = <IN>);
> 	close IN;
>     }else{
> 	$w = $ARGV[0];
>     }
> }else{
>     chomp($w = <STDIN>);
> }
> 
> if (defined $w && $w ne ""){
>     $a=`lynx -dump -nolist http://buscon.rae.es/draeI/SrvltGUIBusUsual?TIPO_HTML=2'\&'LEMA='$w'`;
>     print $a;
> }
> 
> __END__
>  
> Gracias y saludos 
> 

Parece que así debería funcionar:

`lynx -dump -nolist http://buscon.rae.es/draeI/SrvltConsulta?TIPO_BUS=3'\&'LEMA='$w'`

-- 
Gonzalo Pérez de Olaguer Córdoba <gpoc@iies.es> --- www.gpoc.es
PGP key 2861C704 --- F206 5671 6789 425D 111C  1302 214F 1934 2861 C704

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads