Foro - Perl en Español

por **erv-Z** » 2009-09-04 15:52 @703

Buenas, me ha resultado a la perfección pero tengo un problema con las expresiones regulares. Mira, quiero extraer un texto específico de un código de fuente. Por ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using html4strict Syntax Highlighting

Bienvenido <br>

Espero que te sientas a gusto con nosotros
<br>Tu nombre es jose<br>Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Ahora, mira, hay 3 líneas, de esas tres líneas quiero sacar solo la palabra jose de ese texto no más. En el tutorial da ejemplo de cómo sacar todas las palabras que uno quiera, pero no dice cómo sacar algo en específico.

Saludos.

                                <td style="padding-top:5px;padding-bottom:5px;" class="texto_normal">
                                <p class="texto_normal_sinmargen">La traducci&oacute;n de su texto a&nbsp;<strong>Ingl&eacute;s</strong> es la siguiente:</p>
                                </td>
 
                        </tr>
                        <tr>
                                <td style="padding:5px; padding-bottom: 10px; padding-top:10px; background-color:#F0F0F0;" class="texto_normal">
                                <p class="texto_normal_sinmargen">hello</p>
                                </td>
                        </tr>                   
                        </table>
 
 
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Ahora lo que quiero es sacar mediante las espresiones regulares solo la palabra hello.

por **explorer** » 2009-09-04 16:28 @728

Bastante difícil ayudarte... cuando dije código, me refiero a TU código Perl, a cómo guardas el código HTML dentro de tu código Perl.

En cuanto al código HTML que muestras, es difícil dar una solución porque veo que la celda que contiene lo que quieres sacar tiene las mismas propiedades que la celda anterior.

Se puede sacar por medio del conocimiento jerárquico de la tabla HTML donde reside, pero tampoco la muestras entera y tampoco sabemos cuántas tablas hay en la página.

En fin, que sin más información, no hay resolución.

por **erv-Z** » 2009-09-04 16:42 @737

Oka, aquí mi código.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use WWW::Mechanize;
use HTTP::Response;
 
#Code
 
 
my $md5 = '21232f297a57a5a743894a0e4a801fc3';
 
#---------
 
my $mech = WWW::Mechanize->new();
my $mech = WWW::Mechanize->new( agent => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201 Firefox/2.0.0.12' );
$mech->get( 'http://md5decrypter.com' );
 
    my $response = $mech->submit_form(
                                      form_number => 1,
                                      button     => 'submit',
                                      fields     => {
                                                     'search'    =>  $md5,
                                                    }
                                     );
 
 
print $response->content();
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Oka, él me tira el código de fuente con el algoritmo md5 descodificado, pero solo quiero que me tire el algoritmo md5 descodificado no todo el código de fuente, por eso uso las expresiones regulares y no sé cómo hacer para que me salga esa parte.

por **explorer** » 2009-09-04 18:04 @794

Yo no veo las expresiones regulares por ningún lado...

Y ya veo que es sobre el tema del md5 dichoso... De ese formulario, creo recordar que ya hemos hablado en otro hilo y creo también recordar que sí se resolvió y se dio la solución.

Deberás usar el motor de búsqueda o Google para buscar en este sitio el hilo de discusión correspondiente.

Además, no puedo ayudarte más, por cuestiones policiales. No quiero meterme en líos.

A ver si otro se anima y te ayuda.

por **erv-Z** » 2009-09-04 18:08 @797

oka, yo lo único que quiero saber es cómo saco la palabra que quiero de ese u otro código de fuente, man, por eso te puse un ejemplo de un código de fuente.

por **kidd** » 2009-09-05 10:10 @465

Tienes que usar expresiones regulares:
http://perlenespanol.com/tutoriales/exp ... regulares/

También quedará este tópico cerrado para evitar cualquier problema futuro. Aún estás bienvenido en poner nuevos temas, pero siempre y cuando evitemos tratar temas que rayan en lo ilegal o anti-ético.

Foro - Perl en Español

Haciendo peticiones a una web

Re: Haciendo peticiones a una web

Publicidad

Re: Haciendo peticiones a una web

Re: Haciendo peticiones a una web

Re: Haciendo peticiones a una web

Re: Haciendo peticiones a una web

Re: Haciendo peticiones a una web

Re: Haciendo peticiones a una web

Re: Haciendo peticiones a una web

¿Quién está conectado?