Foro - Perl en Español

por **explorer** » 2010-04-03 15:40 @694

Con estas líneas te quedas con las que empiezan con un número más un punto, eliminando la primera y última parte del texto no interesante.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$string =~ s/^.*?(?=1\.)//;
$string =~ s/(\d+\.)/\n$1/g;
$string =~ s/Real Academia.*$//;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

#!/usr/bin/perl
#!/usr/bin/perl
 
use warnings;
use strict;
use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
$mech->get("http://buscon.rae.es/draeI/SrvltGUIBusUsual?LEMA=abyecto");
my $string = $mech->content(format => "text");
binmode STDOUT, ":encoding(UTF-8)";
$string =~ s/\s{3,3}//g;
$string =~ s/\s{2,2}/ /g;
$string =~ s/(\d+\.)/\n\n$1/g;
$string =~ s/(Real\s?)/\n\n$1/g;
print "$string\n";
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Real Academia Española. Diccionario Usual. REAL ACADEMIA ESPAÑOLA DICCIONARIO DE LA LENGUA ESPAÑOLA - Vigésima segunda ediciónabyecto, ta. (Del lat. abiectus, part. pas. de abiicĕre, rebajar, envilecer). 

1. adj. Despreciable, vil en extremo. 

2. adj. desus. humillado (‖ abatido en el orgullo).

Real Academia Española © Todos los derechos reservados
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2010-04-03 17:48 @783

¡je,je,je!

Al final, queda al mínimo...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use feature 'say';
use open 'locale';
use LWP::Simple;
 
my $rae = get("http://buscon.rae.es/draeI/SrvltGUIBusUsual?LEMA=abyecto");
 
while ($rae =~ m/name="[\d_]+"> (.*?) <\/p/smgix) {
    $desc = $1;
 
    # Quitar las marcas HTML
    $desc =~ s/<.*?>//gsm;
 
    # Quitar los espacios a los lados
    $desc =~ s/^\s+//sm;
    $desc =~ s/\s+$//sm;
 
    # Quitar espacios excesivos
    $desc =~ s/\s+/ /gsm;
 
    say $desc;
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

abyecto, ta.

1. adj. Despreciable, vil en extremo.

2. adj. desus. humillado (‖ abatido en el orgullo).Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

por **erv-Z** » 2010-04-03 17:54 @788

¿Para qué sirve el operador de opción /x y /m?

por **Leo_Gutierrez** » 2010-04-03 18:30 @812

Según mi libro esto:

m : Determina que, si la cadena tiene algún carácter de salto de línea o retorno de carro, los operadores ^ y $ busquen desde el principio y el final de la cadena, en lugar de las líneas individuales.

x : Permite usar espacios en blanco en la expresión para que quede más clara.

Gracias por las respuestas, voy a ver si puedo ponerle interfaz gráfica.

por **erv-Z** » 2010-04-03 18:32 @813

Gracias, ya entendí, muy útiles por cierto.

por **explorer** » 2010-04-03 20:25 @892

Al final, con LWP::Simple, queda más simple

por **Leo_Gutierrez** » 2010-04-03 20:49 @909

Estoy estudiando a Gtk2, para ver si le puedo incorporar una interfaz.

Quiero que quede algo así:

Sintáxis: [ Descargar ] [ Ocultar ]

perl script.pl --dump "palabra"

Ese sería solo para ver en la consola.

Y el otro así:

Sintáxis: [ Descargar ] [ Ocultar ]

perl script.pl --interactive

Para iniciar en modo gráfico, claro que tendría que incorporar getopt() para procesar las banderas.

Pero en fin, hay trabajo por hacer, porque no tengo mucha experiencia ni con Perl ni con Gtk2.

Una pregunta sobre el foro, ¿cómo puedo cambiar el nombre de mi usuario?

por **erv-Z** » 2010-04-03 21:04 @919

Creo que no lo podemos cambiar, los que lo pueden hacer son explorer y kidd.

por **Leo_Gutierrez** » 2010-04-04 03:04 @169

Tengo una duda con el uso Gtk2, ya tengo todo listo, pero tengo un problema. Este es mi código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use warnings;
use strict;
use WWW::Mechanize;
use Gtk2 '-init';
use constant TRUE => 1;
use constant FALSE => 0;
 
my $window = Gtk2::Window->new('toplevel'); # Ventana principal.
$window->set_border_width(100); # Cambiamos el tamaño.
$window->signal_connect(destroy => sub{Gtk2->main_quit});
 
my $label = Gtk2::Label->new("RAE Search.");    # Mensaje.
my $button = Gtk2::Button->new("Buscar");       # Botón buscar.
my $vbox = Gtk2::VBox->new(5, FALSE);   # VBox para agrupar los widgets.
$vbox->add($label);     # Agregamos $label al VBox.
$vbox->add($button);    # Ídem.
my $dir_entry = Gtk2::Entry->new;       # Entrada de texto.
$dir_entry->set_text("");       # Cambiamos el texto del $dir_entry.
# Boton que da la salida, put atention here!    
$vbox->pack_start($dir_entry, FALSE, FALSE, FALSE);
my $label_mensaje = Gtk2::Label->new("Esto debe actualizarse con lo que se capture de la caja de texto, pero NO lo hace.");
my $rae = " ";
$button->signal_connect(clicked => sub
        {
                $rae = $dir_entry->get_text;
                print "$rae\n";
                # Se supone que debería actualizarse el label con lo capturado, pero no lo hace.
                $label_mensaje = Gtk2::Label->new($rae);
        }
);
print "Capturada : $rae\n";     # Aquí no se captura nada.
$vbox->add($label_mensaje);
$window->add($vbox);
$window->show_all;
 
Gtk2->main;
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Aquí les dejo la imagen:
Imagen

Es decir, el label que está debajo de la entrada de texto debe ir variando conforme a lo que el usuario me dé. Si varía quiere decir que ya lo puedo procesar, hacer las búsquedas en la RAE.

Llevo varias horas intentando y aún no lo consigo, si alguien pudiera ayudarme, aunque sea con ideas.

Saludos y gracias de antemano.

Foro - Perl en Español

Dudas con HTML::Parser

Re: Dudas con HTML::Parser

Publicidad

Re: Dudas con HTML::Parser

Re: Dudas con HTML::Parser

Re: Dudas con HTML::Parser

Re: Dudas con HTML::Parser

Re: Dudas con HTML::Parser

Re: Dudas con HTML::Parser

Re: Dudas con HTML::Parser

Re: Dudas con HTML::Parser

Re: Dudas con HTML::Parser

¿Quién está conectado?