Foro - Perl en Español

por **magiza83** » 2012-03-28 06:07 @296

Hola,
Estoy intentando parsear un html para obtener los datos de las tablas html.

El código html es:

Sintáxis: [ Descargar ] [ Ocultar ]

Using html4strict Syntax Highlighting

Content-type: text/html
 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN"><html>
<head><title>Replication Status</title>
<style text/css>
Body, p, table, td, ul, li {color: #000000; font-family: Arial, Helvetica, sans-serif; font-size: 12px;}
A {color:blue; text-decoration: none;}
BODY {font-family: arial, helvetica, sans-serif}
P {font-family: arial, helvetica, sans-serif}
TH {font-weight: bold; font-family: arial, helvetica, sans-serif}
TD {font-family: arial, helvetica, sans-serif}
.bgColor1  {background-color: #003366;}
.bgColor4  {background-color: #cccccc;}
.bgColor5  {background-color: #999999;}
.bgColor9  {background-color: #336699;}
.bgColor13 {background-color: #ffffff;}
.bgColor16 {background-color: #6699cc;}
.text8  {color: #0099cc; font-size: 11px; font-weight: bold;}
.text28 {color: #ffcc33; font-size: 12px; font-weight: bold;}
.areatitle {font-weight: bold; color: #ffffff; font-family: arial, helvetica, sans-serif}
.page-title {font-weight: bold; font-size: larger; font-family: arial, helvetica, sans-serif}
.page-subtitle {font-weight: bold; font-family: arial, helvetica, sans-serif}
</style></head>
<body class=bgColor4>
<table border=0 cellspacing=0 cellpadding=10 width=100% class=bgColor1>
<tr><td><font class=text8>Wed Mar 28 2012 12:55:26</font></td>
<td align=center class=page-title><font color=#0099CC>Directory Server Replication Status</font>
</td><td align=right valign=center width=25%><font class=text8>Version 1.0</font></td></table>
 
<center><p><font class=page-subtitle color=#0099cc>Time Lag Legend:</font><p>
<table cellpadding=6 cols=3 width=40%>
<tr>
 
<td bgcolor=#ccffcc><center>within 5 min</center></td>
 
<td bgcolor=#ffffcc><center>within 60 min</center></td>
 
<td bgcolor=#ffcccc><center>over 60 min</center></td>
 
<td bgcolor=red><center>server n/a</center></td>
</table></center>
<p><p><hr><p>
 
<p><center class=page-subtitle><font color=#0099cc>
Master:&nbsp <a href="ldap://ldap2.test.com:1389/">ldap2.test.com:1389</a></center>
 
<p><table border=0 cellspacing=1 cellpadding=6 cols=10 width=100% class=bgColor9>
 
<tr><td colspan=10><center>
<font class=areatitle>Replica ID:&nbsp;</font><font class=text28>1</font>
<font class=areatitle>Replica Root:&nbsp;</font><font class=text28>dc=org</font>
<font class=areatitle>Max CSN:&nbsp;</font><font class=text28>4f71ce1e000500010000 (03/27/2012 16:26:38 5 0)</font>
 
<tr class=bgColor16>
<th nowrap>Receiver</th>
<th nowrap>Time Lag</th>
<th nowrap>Max CSN</th>
<th nowrap>Last Modify Time</th>
<th nowrap>Supplier</th>
<th nowrap>Sent/Skipped</th>
<th nowrap>Update Status</th>
<th nowrap>Update Started</th>
<th nowrap>Update Ended</th>
<th nowrap colspan=2>Schedule</th>
<th nowrap>SSL?</th>
</tr>
 
<tr class=bgColor13>
<td rowspan=1 width=5% class=bgColor5><a href="ldap://ldap2-2.test.com:1389/">ldap2-2.test.com:1389</a><BR>Type: master</td>
<td rowspan=1 width=5% nowrap bgcolor=#ccffcc><center>0:00:00</center></td>
<td rowspan=1 width=15% nowrap>4f71ce1e000500010000<br>(03/27/2012 16:26:38 5 0)</td>
<td rowspan=1 width=15% nowrap>3/27/2012 16:26:38</td>
<td width=5% nowrap><center>ldap2.test.com:1389</center></td>
<td width=3% nowrap>12 / 0</td>
<td width=20% nowrap>0 Replica acquired successfully: Incremental update succeeded</td>
<td nowrap>03/27/2012 17:21:21</td>
<td nowrap>03/27/2012 17:21:21</td>
<td colspan=2 width=10% nowrap>always in sync</td>
<td width=3% nowrap class=bgColor5>n</td>
</table>
<p><p><hr><p>
 
<p><center class=page-subtitle><font color=#0099cc>
Master:&nbsp <a href="ldap://ldap2-2.test.com:1389/">ldap2-2.test.com:1389</a></center>
 
<p><table border=0 cellspacing=1 cellpadding=6 cols=10 width=100% class=bgColor9>
 
<tr><td colspan=10><center>
<font class=areatitle>Replica ID:&nbsp;</font><font class=text28>2</font>
<font class=areatitle>Replica Root:&nbsp;</font><font class=text28>dc=org</font>
<font class=areatitle>Max CSN:&nbsp;</font><font class=text28>4f71daf3000000020000 (03/27/2012 17:21:23)</font>
 
<tr class=bgColor16>
<th nowrap>Receiver</th>
<th nowrap>Time Lag</th>
<th nowrap>Max CSN</th>
<th nowrap>Last Modify Time</th>
<th nowrap>Supplier</th>
<th nowrap>Sent/Skipped</th>
<th nowrap>Update Status</th>
<th nowrap>Update Started</th>
<th nowrap>Update Ended</th>
<th nowrap colspan=2>Schedule</th>
<th nowrap>SSL?</th>
</tr>
 
<tr class=bgColor13>
<td rowspan=1 width=5% class=bgColor5><a href="ldap://ldap2.test.com:1389/">ldap2.test.com:1389</a><BR>Type: master</td>
<td rowspan=1 width=5% nowrap bgcolor=#ccffcc><center>0:00:00</center></td>
<td rowspan=1 width=15% nowrap>4f71daf3000000020000<br>(03/27/2012 17:21:23)</td>
<td rowspan=1 width=15% nowrap>3/27/2012 17:21:21</td>
<td width=5% nowrap><center>ldap2-2.test.com:1389</center></td>
<td width=3% nowrap>0 / 0</td>
<td width=20% nowrap>0 No replication sessions started since server startup</td>
<td nowrap>n/a</td>
<td nowrap>n/a</td>
<td colspan=2 width=10% nowrap>always in sync</td>
<td width=3% nowrap class=bgColor5>n</td>
</table>
 
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

Lo que me gustaria obtener son los datos de las etiquetas <th> y sus valores en <td>. He intentado seguir algún manual sobre parseo de HTML, pero no lo tengo claro y no consigo sacar ningún valor.

¿Podéis guiarme sobre cómo hacerlo?

Este HTML es generado por un script, que crea las dos tablas (1 por cada host), la idea es que este HTML vaya creciendo y generando un acumulado. Lo que me gustaría es solo leer las dos últimas tablas generadas (es decir, las dos últimas tablas que aparecen en el fichero), ya que son las referentes a la última ejecución del script.

Saludos y muchas gracias.

#!/usr/bin/perl
use Modern::Perl '2012';
use Mojo::Asset::File;
use Mojo::DOM;
use List::MoreUtils 'zip';
 
my $archivo = "code_30276.html";                            # Leemos el archivo
 
my $file_asset = Mojo::Asset::File->new(path => $archivo);  # Crea un contenedor en un archivo
 
my $mojo = Mojo::DOM->new($file_asset->slurp);              # Y lo leemos e interpretamos sintácticamente
 
my $tabla = $mojo->find("table")->[-1];                     # Buscamos la última tabla
 
sub texto {
        $_[0]->text;                                        # Lo que queremos hacer con cada elemento: su texto
}
 
                                                            # La magia: buscar, extraer, transformar y barajar
my %datos = zip @{ $tabla->find("tr[class=bgColor16] th")->map(\&texto) },
                @{ $tabla->find("tr[class=bgColor13] td")->map(\&texto) };
 
use Data::Dumper::Simple;
say Dumper %datos;                                          # Resultado
 
__END__
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

La salida es:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

%datos = (

           'Update Started' => 'n/a',

           'Update Status' => '0 No replication sessions started since server startup',

           'Update Ended' => 'n/a',

           'Time Lag' => '',

           'Last Modify Time' => '3/27/2012 17:21:21',

           'Sent/Skipped' => '0 / 0',

           'SSL?' => 'n',

           'Receiver' => 'Type: master',

           'Supplier' => '',

           'Schedule' => 'always in sync',

           'Max CSN' => '4f71daf3000000020000 (03/27/2012 17:21:23)'

         );Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

por **magiza83** » 2012-04-02 01:14 @093

¡Muchas gracias, explorer!

Tendré que revisar bien qué hace este módulo para entender bien el script, ¡pero era justo lo que estaba buscando!

¡Saludos!

por **magiza83** » 2012-04-02 03:57 @206

Hola,

al intentar ejecutar el script en mi máquina no funcionaba por no tener los módulos, pero al intentar instalarlos obtengo los siguientes errores:

cpan -i Mojo::Asset::File

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

...

...

...

Manifying blib/man3/Mojolicious::Command::daemon.3pm

Manifying blib/man3/Mojo::Parameters.3pm

  SRI/Mojolicious-2.70.tar.gz

  /usr/bin/make -- OK

Running make test

PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t t/*/*.t

t/mojo/app.t ............................... Can't locate Time/HiRes.pm in @INC (@INC contains: /root/.cpan/build/Mojolicious-2.70-mJrmeB/blib/lib /root/.cpan/build/Mojolicious-2.70-mJrmeB/blib/arch /usr/local/lib64/perl5 /usr/local/share/perl5 /usr/lib64/perl5/vendor_perl /usr/share/perl5/vendor_perl /usr/lib64/perl5 /usr/share/perl5 .) at /root/.cpan/build/Mojolicious-2.70-mJrmeB/blib/lib/Mojo/IOLoop/Stream.pm line 6.

BEGIN failed--compilation aborted at /root/.cpan/build/Mojolicious-2.70-mJrmeB/blib/lib/Mojo/IOLoop/Stream.pm line 6.

Compilation failed in require at /root/.cpan/build/Mojolicious-2.70-mJrmeB/blib/lib/Mojo/IOLoop.pm line 8.

BEGIN failed--compilation aborted at /root/.cpan/build/Mojolicious-2.70-mJrmeB/blib/lib/Mojo/IOLoop.pm line 8.

Compilation failed in require at /root/.cpan/build/Mojolicious-2.70-mJrmeB/blib/lib/Mojo/UserAgent.pm line 6.

BEGIN failed--compilation aborted at /root/.cpan/build/Mojolicious-2.70-mJrmeB/blib/lib/Mojo/UserAgent.pm line 6.

Compilation failed in require at /root/.cpan/build/Mojolicious-2.70-mJrmeB/blib/lib/Mojo.pm line 8.

BEGIN failed--compilation aborted at /root/.cpan/build/Mojolicious-2.70-mJrmeB/blib/lib/Mojo.pm line 8.

Compilation failed in require at t/mojo/app.t line 16.

BEGIN failed--compilation aborted at t/mojo/app.t line 16.

# Looks like your test exited with 2 before it could output anything.

t/mojo/app.t ............................... Dubious, test returned 2 (wstat 512, 0x200)

Failed 54/54 subtests

t/mojo/asset.t ............................. ok

...

...

...Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¿Alguna idea de por qué falla? Sigo googleando a ver por qué falla.

La versión de Perl es:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

perl -v

This is perl, v5.10.1 (*) built for x86_64-linux-thread-multi

Copyright 1987-2009, Larry Wall

Perl may be copied only under the terms of either the Artistic License or the

GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on

this system using "man perl" or "perldoc perl".  If you have access to the

Internet, point your browser at http://www.perl.org/, the Perl Home Page.Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Saludos y muchas gracias.

por **explorer** » 2012-04-02 05:46 @282

El error dice Can't locate Time/HiRes.pm, que quiere decir que no localiza el módulo Time::HiRes.

Es extraño que el comando cpan no te haya preguntado si quieres instalar los módulos de los que depende Mojo::Asset::File.

Es cuestión de la configuración del comando cpan el que te lo pregunte, o no. Puedes cambiarlo, o seguir instalando los módulos que te faltan, uno a uno.

Para cambiar la configuración de cpan, ejecútalo sin ningún argumento, para entrar en su shell. Luego, allí, escribes los comandos:

o conf prerequisites_policy follow
o conf commit

Y ya está. Con eso, instalará los módulos dependientes, sin preguntar. Si quieres que sí te pregunte antes de instalarlos, cambia 'follow' por 'ask'.

por **magiza83** » 2012-04-02 08:36 @400

Hola,

¡Gracias! Ahora ya puedo ejecutar el script.

Aunque encuentro varios problemas en la salida del script y como además no acabo de entender bien cómo busca la información no soy capaz de modificarlo. Además ahora el html se ha complicado un poco más debido a cambios realizados en el entorno y no soy capaz de utilizar el código de Perl para adaptarlo al nuevo HTML.

Ahora el html es el siguiente, la estructura más o menos es igual solo que se han añadido nuevos:

Sintáxis: [ Descargar ] [ Ocultar ]

Using html4strict Syntax Highlighting

Content-type: text/html
 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN"><html>
<head><title>Replication Status</title>
<style text/css>
Body, p, table, td, ul, li {color: #000000; font-family: Arial, Helvetica, sans-serif; font-size: 12px;}
A {color:blue; text-decoration: none;}
BODY {font-family: arial, helvetica, sans-serif}
P {font-family: arial, helvetica, sans-serif}
TH {font-weight: bold; font-family: arial, helvetica, sans-serif}
TD {font-family: arial, helvetica, sans-serif}
.bgColor1  {background-color: #003366;}
.bgColor4  {background-color: #cccccc;}
.bgColor5  {background-color: #999999;}
.bgColor9  {background-color: #336699;}
.bgColor13 {background-color: #ffffff;}
.bgColor16 {background-color: #6699cc;}
.text8  {color: #0099cc; font-size: 11px; font-weight: bold;}
.text28 {color: #ffcc33; font-size: 12px; font-weight: bold;}
.areatitle {font-weight: bold; color: #ffffff; font-family: arial, helvetica, sans-serif}
.page-title {font-weight: bold; font-size: larger; font-family: arial, helvetica, sans-serif}
.page-subtitle {font-weight: bold; font-family: arial, helvetica, sans-serif}
</style></head>
<body class=bgColor4>
<table border=0 cellspacing=0 cellpadding=10 width=100% class=bgColor1>
<tr><td><font class=text8>Mon Apr  12:38:01 2</font></td>
<td align=center class=page-title><font color=#0099CC>Directory Server Replication Status</font>
</td><td align=right valign=center width=25%><font class=text8>Version 1.0</font></td></table>
 
<center><p><font class=page-subtitle color=#0099cc>Time Lag Legend:</font><p>
<table cellpadding=6 cols=3 width=40%>
<tr>
 
<td bgcolor=#ccffcc><center>within 5 min</center></td>
 
<td bgcolor=#ffffcc><center>within 60 min</center></td>
 
<td bgcolor=#ffcccc><center>over 60 min</center></td>
 
<td bgcolor=red><center>server n/a</center></td>
</table></center>
<p><p><hr><p>
 
<p><center class=page-subtitle><font color=#0099cc>
Master:&nbsp <a href="ldap://ldap1-1.ddol-test.com:1389/">ldap1-1.ddol-test.com:1389</a></center>
 
<p><table border=0 cellspacing=1 cellpadding=6 cols=10 width=100% class=bgColor9>
 
<tr><td colspan=10><center>
<font class=areatitle>Replica ID:&nbsp;</font><font class=text28>1</font>
<font class=areatitle>Replica Root:&nbsp;</font><font class=text28>dc=org</font>
<font class=areatitle>Max CSN:&nbsp;</font><font class=text28>4f797f67000000010000 (04/02/2012 12:28:55)</font>
 
<tr class=bgColor16>
<th nowrap>Receiver</th>
<th nowrap>Time Lag</th>
<th nowrap>Max CSN</th>
<th nowrap>Last Modify Time</th>
<th nowrap>Supplier</th>
<th nowrap>Sent/Skipped</th>
<th nowrap>Update Status</th>
<th nowrap>Update Started</th>
<th nowrap>Update Ended</th>
<th nowrap colspan=2>Schedule</th>
<th nowrap>SSL?</th>
</tr>
 
<tr class=bgColor13>
<td rowspan=1 width=5% class=bgColor5><a href="ldap://ldap1-2.ddol-test.com:1389/">ldap1-2.ddol-test.com:1389</a><BR>Type: master</td>
<td rowspan=1 width=5% nowrap bgcolor=#ccffcc><center>0:00:00</center></td>
<td rowspan=1 width=15% nowrap>4f797f67000000010000<br>(04/02/2012 12:28:55)</td>
<td rowspan=1 width=15% nowrap>4/2/2012 12:28:54</td>
<td width=5% nowrap><center>ldap1-1.ddol-test.com:1389</center></td>
<td width=3% nowrap>1077 / 0</td>
<td width=20% nowrap>0 Replica acquired successfully: Incremental update succeeded</td>
<td nowrap>04/02/2012 12:33:56</td>
<td nowrap>04/02/2012 12:33:56</td>
<td colspan=2 width=10% nowrap>always in sync</td>
<td width=3% nowrap class=bgColor5>n</td>
 
<tr class=bgColor13>
<td rowspan=2 width=5% class=bgColor5><a href="ldap://ldap2-1.ddol-test.com:1389/">ldap2-1.ddol-test.com:1389</a><BR>Type: consumer</td>
<td rowspan=2 width=5% nowrap bgcolor=#ccffcc><center>0:00:00</center></td>
<td rowspan=2 width=15% nowrap>4f797f67000000010000<br>(04/02/2012 12:28:55)</td>
<td rowspan=2 width=15% nowrap>4/2/2012 12:31:44</td>
<td width=5% nowrap><center>ldap1-1.ddol-test.com:1389</center></td>
<td width=3% nowrap>1266 / 0</td>
<td width=20% nowrap>0 Replica acquired successfully: Incremental update succeeded</td>
<td nowrap>04/02/2012 12:36:46</td>
<td nowrap>04/02/2012 12:36:46</td>
<td colspan=2 width=10% nowrap>always in sync</td>
<td width=3% nowrap class=bgColor5>n</td>
 
<tr class=bgColor13>
<td width=5% nowrap><center>ldap1-2.ddol-test.com:1389</center></td>
<td width=3% nowrap>0 / 0</td>
<td width=20% nowrap>0 Replica acquired successfully: Incremental update succeeded</td>
<td nowrap>04/02/2012 12:34:54</td>
<td nowrap>04/02/2012 12:34:54</td>
<td colspan=2 width=10% nowrap>always in sync</td>
<td width=3% nowrap class=bgColor5>n</td>
 
<tr class=bgColor13>
<td rowspan=2 width=5% class=bgColor5><a href="ldap://ldap2-2.ddol-test.com:1389/">ldap2-2.ddol-test.com:1389</a><BR>Type: consumer</td>
<td rowspan=2 width=5% nowrap bgcolor=#ccffcc><center>0:00:00</center></td>
<td rowspan=2 width=15% nowrap>4f797f67000000010000<br>(04/02/2012 12:28:55)</td>
<td rowspan=2 width=15% nowrap>4/2/2012 12:34:59</td>
<td width=5% nowrap><center>ldap1-1.ddol-test.com:1389</center></td>
<td width=3% nowrap>0 / 0</td>
<td width=20% nowrap>0 Replica acquired successfully: Incremental update succeeded</td>
<td nowrap>04/02/2012 12:36:39</td>
<td nowrap>04/02/2012 12:36:39</td>
<td colspan=2 width=10% nowrap>always in sync</td>
<td width=3% nowrap class=bgColor5>n</td>
 
<tr class=bgColor13>
<td width=5% nowrap><center>ldap1-2.ddol-test.com:1389</center></td>
<td width=3% nowrap>1275 / 0</td>
<td width=20% nowrap>0 Replica acquired successfully: Incremental update succeeded</td>
<td nowrap>04/02/2012 12:34:54</td>
<td nowrap>04/02/2012 12:35:01</td>
<td colspan=2 width=10% nowrap>always in sync</td>
<td width=3% nowrap class=bgColor5>n</td>
</table>
<p><p><hr><p>
 
<p><center class=page-subtitle><font color=#0099cc>
Master:&nbsp <a href="ldap://ldap1-2.ddol-test.com:1389/">ldap1-2.ddol-test.com:1389</a></center>
 
<p><table border=0 cellspacing=1 cellpadding=6 cols=10 width=100% class=bgColor9>
 
<tr><td colspan=10><center>
<font class=areatitle>Replica ID:&nbsp;</font><font class=text28>2</font>
<font class=areatitle>Replica Root:&nbsp;</font><font class=text28>dc=org</font>
<font class=areatitle>Max CSN:&nbsp;</font><font class=text28>4f7959ae000000020000 (04/02/2012 09:47:58)</font>
 
<tr class=bgColor16>
<th nowrap>Receiver</th>
<th nowrap>Time Lag</th>
<th nowrap>Max CSN</th>
<th nowrap>Last Modify Time</th>
<th nowrap>Supplier</th>
<th nowrap>Sent/Skipped</th>
<th nowrap>Update Status</th>
<th nowrap>Update Started</th>
<th nowrap>Update Ended</th>
<th nowrap colspan=2>Schedule</th>
<th nowrap>SSL?</th>
</tr>
 
<tr class=bgColor13>
<td rowspan=1 width=5% class=bgColor5><a href="ldap://ldap1-1.ddol-test.com:1389/">ldap1-1.ddol-test.com:1389</a><BR>Type: master</td>
<td rowspan=1 width=5% nowrap bgcolor=#ccffcc><center>0:00:00</center></td>
<td rowspan=1 width=15% nowrap>4f7959ae000000020000<br>(04/02/2012 09:47:58)</td>
<td rowspan=1 width=15% nowrap>1/1/1970 01:00:00</td>
<td width=5% nowrap><center>ldap1-2.ddol-test.com:1389</center></td>
<td width=3% nowrap>0 / 0</td>
<td width=20% nowrap>0 Replica acquired successfully: Incremental update succeeded</td>
<td nowrap>04/02/2012 12:28:54</td>
<td nowrap>04/02/2012 12:28:54</td>
<td colspan=2 width=10% nowrap>always in sync</td>
<td width=3% nowrap class=bgColor5>n</td>
 
<tr class=bgColor13>
<td rowspan=2 width=5% class=bgColor5><a href="ldap://ldap2-1.ddol-test.com:1389/">ldap2-1.ddol-test.com:1389</a><BR>Type: consumer</td>
<td rowspan=2 width=5% nowrap bgcolor=#ccffcc><center>0:00:00</center></td>
<td rowspan=2 width=15% nowrap>4f7959ae000000020000<br>(04/02/2012 09:47:58)</td>
<td rowspan=2 width=15% nowrap>1/1/1970 01:00:00</td>
<td width=5% nowrap><center>ldap1-2.ddol-test.com:1389</center></td>
<td width=3% nowrap>0 / 0</td>
<td width=20% nowrap>0 Replica acquired successfully: Incremental update succeeded</td>
<td nowrap>04/02/2012 12:34:54</td>
<td nowrap>04/02/2012 12:34:54</td>
<td colspan=2 width=10% nowrap>always in sync</td>
<td width=3% nowrap class=bgColor5>n</td>
 
<tr class=bgColor13>
<td width=5% nowrap><center>ldap1-1.ddol-test.com:1389</center></td>
<td width=3% nowrap>0 / 0</td>
<td width=20% nowrap>0 Replica acquired successfully: Incremental update succeeded</td>
<td nowrap>04/02/2012 12:36:46</td>
<td nowrap>04/02/2012 12:36:46</td>
<td colspan=2 width=10% nowrap>always in sync</td>
<td width=3% nowrap class=bgColor5>n</td>
 
<tr class=bgColor13>
<td rowspan=2 width=5% class=bgColor5><a href="ldap://ldap2-2.ddol-test.com:1389/">ldap2-2.ddol-test.com:1389</a><BR>Type: consumer</td>
<td rowspan=2 width=5% nowrap bgcolor=#ccffcc><center>0:00:00</center></td>
<td rowspan=2 width=15% nowrap>4f7959ae000000020000<br>(04/02/2012 09:47:58)</td>
<td rowspan=2 width=15% nowrap>1/1/1970 01:00:00</td>
<td width=5% nowrap><center>ldap1-2.ddol-test.com:1389</center></td>
<td width=3% nowrap>0 / 0</td>
<td width=20% nowrap>0 Replica acquired successfully: Incremental update succeeded</td>
<td nowrap>04/02/2012 12:34:54</td>
<td nowrap>04/02/2012 12:35:01</td>
<td colspan=2 width=10% nowrap>always in sync</td>
<td width=3% nowrap class=bgColor5>n</td>
 
<tr class=bgColor13>
<td width=5% nowrap><center>ldap1-1.ddol-test.com:1389</center></td>
<td width=3% nowrap>0 / 0</td>
<td width=20% nowrap>0 Replica acquired successfully: Incremental update succeeded</td>
<td nowrap>04/02/2012 12:36:39</td>
<td nowrap>04/02/2012 12:36:39</td>
<td colspan=2 width=10% nowrap>always in sync</td>
<td width=3% nowrap class=bgColor5>n</td>
</table>
</table>
</table>
Coloreado en 0.008 segundos,  usando GeSHi 1.0.8.4

y así es como se muestra en pantalla:
Imagen

No entiendo muy bien qué hace exactamente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $tabla = $mojo->find("table")->[-1];
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

ya que he intentado modificarla pero no consigo obtener los demás valores de la tabla.

¡Saludos y disculpa las molestias!

por **explorer** » 2012-04-02 11:44 @530

A ver... parece que el problema ha cambiado...

Decías al principio que querías sacar los valores de <th> y sus correspondientes valores <td>, pero por lo que veo, hay más de dos filas en las tablas, hay más de dos filas de <td>.

Entonces, ¿cuál es el problema que hay que resolver? ¿Qué valores hay que sacar?

por **magiza83** » 2012-04-03 01:52 @119

Hola,

Disculpa la confusión, yo tampoco tenía claro que el script cambiaría de esa manera. La idea sería poder obtener los valor de cada línea de la tabla, y poder elegir las tablas. No sé sí me explico, pero el fichero html tendrá esta misma estructura pero siendo un acumulado de tablas y cada ejecución crea dos tablas como las que he comentado. Entonces lo ideal sería poder sacar la siguiente información por tabla cuando el master es "Master: ldap1-1.ddol-test.com:1389" y cuando master es "Master: ldap1-2.ddol-test.com:1389" (teniendo en cuenta el título que aparece arriba de la tabla).

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

%fila1 = (

                        'Receiver' => 'ldap1-2.ddol-test.com:1389 Type: master',

                        'Time Lag' => '0:00:00',

                        'Max CSN' => '4f797f67000000010000 (04/02/2012 12:28:55)'

                        'Last Modify Time' => '3/27/2012 17:21:21',

                        'Supplier' => 'ldap1-1.ddol-test.com:1389',

                        'Sent/Skipped' => '1077 / 0',

                        'Update Status' => '0 No replication sessions started since server startup',

                        'Update Started' => '04/02/2012 12:33:56',

                        'Update Ended' => '04/02/2012 12:33:56',

                        'Schedule' => 'always in sync',

                        'SSL?' => 'n',

        );

%lfila2 = (

                        'Receiver' => 'ldap2-1.ddol-test.com:1389 Type: consumer',

                        'Time Lag' => '0:00:00',

                        'Max CSN' => '4f797f67000000010000 (04/02/2012 12:28:55)'

                        'Last Modify Time' => '4/2/2012 12:31:44',

                        'Supplier' => 'ldap1-1.ddol-test.com:1389',

                        'Sent/Skipped' => '1266 / 0',

                        'Update Status' => '0 No replication sessions started since server startup',

                        'Update Started' => '04/02/2012 12:36:46',

                        'Update Ended' => '04/02/2012 12:36:46',

                        'Schedule' => 'always in sync',

                        'SSL?' => 'n',

        );      

%fila3 = (

                        'Receiver' => 'ldap2-1.ddol-test.com:1389 Type: consumer',

                        'Time Lag' => '0:00:00',

                        'Max CSN' => '4f797f67000000010000 (04/02/2012 12:28:55)'

                        'Last Modify Time' => '4/2/2012 12:31:44',

                        'Supplier' => 'ldap1-2.ddol-test.com:1389',

                        'Sent/Skipped' => '0 / 0',

                        'Update Status' => '0 No replication sessions started since server startup',

                        'Update Started' => '04/02/2012 12:34:54',

                        'Update Ended' => '04/02/2012 12:34:54',

                        'Schedule' => 'always in sync',

                        'SSL?' => 'n',

        );      

%fila4 = (

                        'Receiver' => 'ldap2-2.ddol-test.com:1389 Type: consumer',

                        'Time Lag' => '0:00:00',

                        'Max CSN' => '4f797f67000000010000 (04/02/2012 12:28:55)'

                        'Last Modify Time' => '4/2/2012 12:34:59',

                        'Supplier' => 'ldap1-1.ddol-test.com:1389',

                        'Sent/Skipped' => '0 / 0',

                        'Update Status' => '0 No replication sessions started since server startup',

                        'Update Started' => '04/02/2012 12:36:39',

                        'Update Ended' => '04/02/2012 12:36:39',

                        'Schedule' => 'always in sync',

                        'SSL?' => 'n',

        );      

%fila5 = (

                        'Receiver' => 'ldap2-2.ddol-test.com:1389 Type: consumer',

                        'Time Lag' => '0:00:00',

                        'Max CSN' => '4f797f67000000010000 (04/02/2012 12:28:55)'

                        'Last Modify Time' => '4/2/2012 12:34:59',

                        'Supplier' => 'ldap1-2.ddol-test.com:1389',

                        'Sent/Skipped' => '1275 / 0',

                        'Update Status' => '0 No replication sessions started since server startup',

                        'Update Started' => '04/02/2012 12:34:54',

                        'Update Ended' => '04/02/2012 12:35:01',

                        'Schedule' => 'always in sync',

                        'SSL?' => 'n',

        );Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¡Muchas gracias y disculpa la confusión!

Saludos.

por **explorer** » 2012-04-03 07:59 @374

Problemas...

El "título" de cada tabla, realmente no pertenece a la tabla. Quiero decir que es solo un párrafo que está centrado delante de la tabla, en lugar de ir en una marca <caption>. Entonces, la búsqueda de la tabla de la que quieres sacar datos, se hace un poco más complicada ya que hay que depender de la búsqueda de ese tipo de enlaces (class=page-subtitle)
Hay filas que contienen celdas que están compartidas en más de una fila. La extracción de la primera fila tendrá todos los campos, pero la segunda fila, no. Esto quiere decir que hay que modificar la estructura de la propia tabla, antes de sacar la información.

¿No hay otra forma de acceder a la información?

por **magiza83** » 2012-04-03 08:51 @410

Hola,

Comentaba lo del título solo para tener en cuenta que ahí está la separación y que cada tabla pertenece un host, pero ese punto no es importante. Si se puede sacar la información por tablas, ya va bien.

Por otra parte no hay problema que la segunda fila no tenga los datos ya que estos se ven también en la segunda tabla. Las tablas son complementarias y por tanto lo que está en la "segunda fila de la primera tabla" también se lee en la "primera fila de la segunda tabla".

Finalmente, el script que genera este HTML está hecho en Perl, pero no tengo lo conocimientos necesarios para modificarlo, he intentado quitar los "rowspan" pero se descuadra toda la tabla.

¡Saludos y muchas gracias por tu ayuda!

Foro - Perl en Español

Obtener datos tabla HTML

Obtener datos tabla HTML

Publicidad

Re: Obtener datos tabla HTML

Re: Obtener datos tabla HTML

Re: Obtener datos tabla HTML

Re: Obtener datos tabla HTML

Re: Obtener datos tabla HTML

Re: Obtener datos tabla HTML

Re: Obtener datos tabla HTML

Re: Obtener datos tabla HTML

Re: Obtener datos tabla HTML

¿Quién está conectado?