Generar Código HTML en Perl

Los scripts escritos en Perl pueden generar dinámicamente código HTML y enviarlo al navegador del visitante. Vamos a ver cómo usaremos el módulo CGI.pm que provablemente encontraremos por defecto en nuestra distribución de CGI.

De esta manera podremos generar HTML usando funciones del objeto CGI que habremos creado con nombre q , vamos a ver un ejemplo y a explicar que hace cada cosa:

#!/usr/local/bin/perl -w
use CGI;            #  Cargamos el módulo
$q = new CGI;       #  Creamos el objeto q
print $q->header,   #  Empezamos con el HTML
       $q->start_html('Titulo de la página'),
       $q->end_html;

Una vez creado el objeto CGI, imprimiremos los resultados de la ejecución de sus funciones, la primera que usamos es header que enviará un encabezado válido al navegador del visitante, a continuación usamos start_html , que nos creará el inicio de la página y definirá su título, finalmente acabamos el documento con end_html .

Ahora vamos a ver como creamos el contenido HTML de esta página usando otras funciones de CGI.pm, veremos cómo crear imagenes, vínculos... Para ello primero veremos cómo podemos crear un objeto HTML.

Para crear un objeto HTML usaremos una función de CGI y le pasaremos un conjunto de parámetros que modificaran el objeto que estamos creando, vamos a ver un ejemplo:

p({-align=>'center', -style=>'margin-left: 20'}, 'Contenido del parrafo')

Los parámetros pasados entre corchetes, serán modificadores del objeto HTML generado, los demás parámetros serán el contenido del objeto HTML, entre estos podremos poner HTML e incluso generar HTML dinamico en su interior.

Veamos cual sería el resultado de ejecutar la función anterior:

<p align="center" style="margin-left: 20">Contenido del parrafo</p>

Ahora vamos a ver un ejemplo un poco mas complejo, y aprovechando que el código que nos generan los scripts en Perl sigue los estándares del W3C , crearemos una imagen con un enlace para chequear el código:

#!/usr/local/bin/perl -w
use CGI;            #  Cargamos el módulo
$q = new CGI;       #  Creamos el objeto q
print $q->header,   #  Empezamos con el HTML
       $q->start_html('Mi página XHTML'),
       $q->h1('Esta es mi página XHTML'),
       $q->p('Esta página es creada en perl a partir de un objeto CGI, se genera al vuelo el código HTML y se genera de acuerdo con los estandares XHTML 1.0'),
       $q->start_a({-href=>'http://validator.w3.org/check/referer'}),
       $q->img({-src=>'http://www.w3.org/Icons/valid-xhtml10',
                -alt=>'Valid XHTML 1.0!',
                -border=>'0'}),
       $q->end_a(),
       $q->end_html;

Artículo por cortesía de Eloi de San Martín
www.programacionweb.net

Usuarios que han visto este tema también han visto...

- Variables de Entorno
- ¿Cómo enviar emails usando Perl y Sendmail?
- Usando estructuras XML desde Perl
- Algunos trucos para programar en PERL

- Versión imprimible de este documento

- Enviar por e-mail este documento