🚀 go-pugleaf

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