Foro - Perl en Español

por **explorer** » 2011-06-25 03:28 @186

El lenguaje HTML no es un lenguaje de programación, sino de marcado.

El módulo no interpreta el marcado HTML (eso lo deja para nosotros, en las funciones que debemos crear), sino que solo se encarga de bajarlo.

Hola explorer. Hay una cosa que no entiendo. ¿Por qué el programa no me dice las noticias que aparecen en la página como titulares? es decir entras en : http://www.marca.com/futbol/1adivision.html
y aparece Mouriño, aparece Mata... pero cuando ejecuto el programa siempre me saca las mismas cosas:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$VAR1 = [
          {
            'link' => '',
            'title' => 'Resumen 2010-2011',
            'description' => 'El Barcelona pudo con el \'efecto Mou\'. Deportivo, Hércules y Almería descienden.'
          },
          {
            'link' => 'http://www.marca.com/reportajes/2011/01/la_primera_vuelta/seccion_00.html',
            'title' => '1ª Vuelta',
            'description' => 'Consulta todos los detalles que nos han dejado los primeros cuatro meses de competición'
          },
          {
            'link' => 'http://www.marca.com/deporte/futbol/primera-division/2010-2011/dorsales/',
            'title' => 'Todos los dorsales',
            'description' => 'Consulta todos los dorsales de los jugadores de la Liga BBVA'
          },
          {
            'link' => 'http://www.marca.com/2010/08/13/multimedia/graficos/1281720946.html',
            'title' => 'La nueva perla del fútbol',
            'description' => 'Analizamos todas las cualidades del nuevo jugador del Real Madrid.'
          },
          {
            'link' => 'http://www.marca.com/2009/11/13/multimedia/graficos/1258122822.html',
            'title' => 'Iniesta, el crack silencioso',
            'description' => 'Descubre todos los secretos del juego de Iniesta y su regate con sello propio.'
          },
          {
            'link' => 'http://www.marca.com/2009/02/07/futbol/equipos/real_madrid/1234005565.html',
            'title' => 'Raúl González Blanco',
            'description' => 'No te pierdas el gráfico sobre el \'7\' blanco tras convertirse en el máximo goleador de la historia del Madrid.'
          },
          {
            'link' => 'http://www.marca.com/edicion/marca/otros_deportes/graficos/es/desarrollo/1046308.html',
            'title' => 'Leo Messi',
            'description' => 'Diseccionamos las jugadas favoritas del azulgrana Leo Messi'
          },
          {
            'link' => 'http://www.marca.com/edicion/marca/otros_deportes/graficos/es/desarrollo/1079288.html',
            'title' => 'Kun Agüero',
            'description' => 'Analizamos todas sus características: remate, regates, control...'
          }
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2011-06-27 10:36 @483

El programa de ejemplo que te he escrito saca los titulares del tipo <h3>, pero esos titulares principales son <h2 >.

Debes modificar la rutina que hace la extracción de los titulares, para que tenga en cuenta esos casos.

por **jacks** » 2011-06-28 06:57 @331

Entonces para que salgan las noticias que te decía es cambiar <h3> por <h2>, pero ¿podría poner más bucles? Uno para <h3> otro para <h2> .

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub makeItemList {
    my $self = shift;
    my $html = shift;
 
    # interpretamos el código HTML y crear con ello una lista
    my @list;
 
#    $html = decode('iso-8859-15', $html);
 
    while ($html =~ m|<h3><a href="(.*?)" title="(.*?)".+?<p>(.+?)<|smg){
#        print "[$1][$2][$3]\n";
 
        push(@list,{
            link        => $1,
            title       => $2,
            description => $3,
        });
    }
    return \@list;
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2011-06-28 09:17 @428

Claro, puedes hacer el cambio o poner un bucle más... el resultado es lo que enviarás con el return().

Eso sí... fíjate bien... no es

'<h2>', sino

'<h2 >' (hay un espacio demás. Debes mirar antes el código fuente de la página que vas a analizar).

por **jacks** » 2011-06-29 11:12 @508

Hola, explorer. Estoy intentando hacer lo mismo con la página de As y la verdad, no parece estar igual que Marca. He visto el código y en este caso ¿debería quitar el <h2 > y lo de title: para que me lo encuentre?

Página: http://www.as.com/futbol/primera/

Sintáxis: [ Descargar ] [ Ocultar ]

Using html4strict Syntax Highlighting

<td><span>FÚTBOL</span><a href="/futbol/articulo/gea-llevare-atletico-siempre-corazon/20110629dasdasftb_40/Tes">De Gea: "Llevaré al Atlético siempre en mi corazón"</a></td></tr>
<tr><td class="hora">17:23</td>
<td><span>MOTOR</span><a href="/motor/articulo/rosa-alonso-ha-hecho-todo/20110629dasdasmot_3/Tes">De la Rosa: "Alonso ha hecho todo por su afición"</a></td></tr>
 
<tr><td class="hora">17:17</td>
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2011-06-29 12:00 @541

Me parece que estás mirando mal... ¿qué tiene que ver un título de motor con una página de fútbol?

En cuanto localices los titulares de fútbol, sabrás si tienes que modificar la expresión regular o no.

por **jacks** » 2011-07-01 06:26 @310

Hola, explorer. Ya una vez que tienes el código para generar los RSS, ¿se podría hacer un bucle pasándole al programa cada una de las URL que tengo almacenadas en la base de datos?

¿Más o menos haciendo el select y recorriendolas con un while() hasta que no quede ninguna URL sin actualizar? El problema que veo es que la URL debe estar introducida en la subrutina init() y no veo desde dónde se hace uso de ella en el programa para pasarle la URL.

por **explorer** » 2011-07-01 09:23 @432

Bueno, habría que organizar un bucle desde el lado de la parte del programa, recorriendo las URL. Y pasando como argumentos a new() el nombre y la URL (sacándolos entonces de init() como valores fijos).

De esa manera, se generará un caché distinto por cada URL.

por **jacks** » 2011-07-04 06:14 @301

Hola, explorer, solo querría saber, para hacer lo mismo yo con las otras páginas, cómo sería el patrón de búsqueda para estas noticias que están dentro:

Sintáxis: [ Descargar ] [ Ocultar ]

Using html4strict Syntax Highlighting

                                <h2>Access control and identification</h2>
 
                                
                                <p class="preamble">Security monitoring and access control without physical contact – made possible by RFID-enabled ASSA ABLOY products. </p>
                                <p>The demand for ASSA ABLOY products based on RFID (Radio Frequency Identification) technology continues to grow. ASSA ABLOY products based on RFID are enabling better end-user services and improving information management for operators in market segments ranging from hospitality and education to e-government and contactless payment.&nbsp;</p>
<p>Our technology <a href="/en/com/Products/Access-control-and-identification/Aperio-online-access-managment/">Aperio gives you wireless possibilities for online door control</a>. It is a new smart technology that enables doors with mechanical locks to be wirelessly linked to existing access control systems without any need to modify the door. Aperio is your answer to conveniently increased security at a competitive cost.</p>
<p>HID Global is leading the way in terms of secure identity solutions and contactless smart card technology for physical access control. Find out more about HID Global at <a title="Access control and identification by HID Global." href="http://www.hidglobal.com" target="_blank">www.hidglobal.com</a>.</p>
<p><a title="Security solutions from ASSA ABLOY" href="/en/com/References/">For inspiration on security solutions from ASSA ABLOY please visit our customer reference pages.</a></p>
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Cómo cambiaría esto:

while ($html =~ m|<h2 ><a href="(.*?)" title="(.*?)".+?<p>(.+?)>|smg){

Foro - Perl en Español

Comparar páginas Perl

Re: Comparar páginas Perl

Publicidad

Re: Comparar páginas Perl

Re: Comparar páginas Perl

Re: Comparar páginas Perl

Re: Comparar páginas Perl

Re: Comparar páginas Perl

Re: Comparar páginas Perl

Re: Comparar páginas Perl

Re: Comparar páginas Perl

Re: Comparar páginas Perl

¿Quién está conectado?