Foro - Perl en Español

por **sarriaga** » 2015-01-15 10:23 @474

!Hola, compañeros Perleros!, espero que puedan ayudarme. Verán, soy nueva en este lenguaje y no sé muy bien cómo crear una imagen de una tabla html o dibujarla.

Les explico más detalladamente: tengo un script donde realizo una consulta a la base de datos y muestro el resultado en una tabla. Ahora, lo que quiero es guardar como imagen la pura tabla o lo que es el resultado. ¿Hay manera de hacer esto? Ya he buscado cómo hacerlo y no he tenido éxito.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $fetch = $dbh->selectall_arrayref("SELECT * FROM ALUMNOS");
 
if(defined $fetch && scalar(@$fetch) == 1){
 foreach(@$fetch){
  push(@$tabla, $_)
 }
}
 
unshift(@$tabla, $q->td({-bgcolor=>'#A9E2F3'},
['<b>No. ALUMNO</b>','<b>NOMBRE<b>','<b>CALIFICACION</b>'])) if defined $tabla;
 
print $q->start_html("Lista de Alumnos");
  print $q->start_form();
  print $q->h3({-align=>'CENTER'},'Lista de Alumnos'.'<br>');
  print 'Inicio DD-MM-AAAA: '.$q->textfield(-name=>'init').'&nbsp;&nbsp;&nbsp;&nbsp;';
  print 'Fin DD-MM-AAAA: '.$q->textfield(-name=>'end').'&nbsp;&nbsp;&nbsp;&nbsp;';
  print 'Filtro: '.$q->popup_menu(-name=>'filtro', -values=>['','Alumnos', 'Profesores'], -default=>$filtro, -override=>1).'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;';
print $q->table({-border=>1, -cellpadding=>2, -cellspacing=>0}, $q->Tr($tabla)) if defined $tabla && @$tabla;
  print $q->end_form();
  print $q->end_html();
 
Coloreado en 0.006 segundos,  usando GeSHi 1.0.8.4

La tabla que se generó es la que quiero guardar como imagen o dibujarla, el resto no.

Espero que puedan orientarme.

¡Saludos!

Necesitarás la ayuda de alguna biblioteca externa o la participación de un navegador web (casi siempre, el Firefox).

En Windows existe Win32::CaptureIE, pero he visto por ahí decir que ya no funciona (es de hace 11 años). Más moderno es Win32::Capture, pero captura pantalla o una ventana o un rectángulo de la pantalla.

Luego está el módulo Wight, que sirve para comunicarse con la biblioteca phantomjs, y a partir de ahí poder sacar un pantallazo de la página:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use strict;
use Wight;
 
my $wight = Wight->new;
 
$wight->visit('http://www.google.com/');
$wight->render('google.png');
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Otra posibilidad es usar la API de Selenium para manejar la misma biblioteca PhantomJS. Hay módulos para ello, naturalmente: En este artículo se puede ver un ejemplo de consulta a una web y cómo guardar en gráfico una captura del resultado.

Otra opción es, que si la tabla y los contenidos de las celdas son sencillos, puedes modificar el código para que en vez de generar HTML, cree el gráfico de forma directa, en PNG. Eso se puede hacer con módulos como GD, y otros (este es el método que yo siempre he usado).

Otra opción es la de manejar el Firefox directamente para que sea él el que haga la transformación de HTML a PNG. Con módulos como WWW::Mechanize::Firefox se puede hacer. En WWW::Mechanize::Firefox::Cookbook tienes algunos ejemplos, como este:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

  my $png = $mech->content_as_png();
  open my $fh, '>', 'page.png'
      or die "Couldn't save to 'page.png': $!";
  binmode $fh;
  print {$fh} $png;
  close $fh;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Este módulo sí que permite renderizar un solo elemento de la página. Si, por ejemplo, la tabla tiene un campo id, con un nombre, se puede renderizar solo esa tabla indicando su nombre:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

  my $shiny = $mech->selector('#tabla', single => 1);
  my $png = $mech->element_as_png($shiny);
  open my $fh, '>', 'page.png'
      or die "Couldn't save to 'page.png': $!";
  binmode $fh;
  print {$fh} $png;
  close $fh;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Mechanize también permite manejar la biblioteca PhantomJS, con la ayuda de WWW::Mechanize::PhantomJS.

Por estos hilos hay más respuestas sobre este problema. Usa el sistema de búsqueda.

por **sarriaga** » 2015-01-16 12:26 @560

explorer escribiste:Otra opción es, que si la tabla y los contenidos de las celdas son sencillos, puedes modificar el código para que en vez de generar HTML, cree el gráfico de forma directa, en PNG. Eso se puede hacer con módulos como GD, y otros (este es el método que yo siempre he usado).

Me parece que esto es justo lo que necesito :wink:

Foro - Perl en Español

Generar imagen a partir de tabla html en script.pl

Generar imagen a partir de tabla html en script.pl

Publicidad

Re: Generar imagen a partir de tabla html en script.pl

Re: Generar imagen a partir de tabla html en script.pl

Re: Generar imagen a partir de tabla html en script.pl

Re: Generar imagen a partir de tabla html en script.pl

¿Quién está conectado?