perlhispano

**Realmente existen muchas formas de hacer esta misma tarea con Perl,
ilustrare las mas rapida usando el modulo Template::Toolkit que segun mis estadisticas viene instalado por defecto en todos los hosting CPANEL..

Si quieres ver si el modulo, entra a tu Cpanel y en servicios entra a modulos de Perl, luego ver modulos instalados en el sistema **
.

Como ven el modulo se llama Template, con esto de una vez entramos un poco a los estandares modernos de programacion en Perl

Listo ahora solo necesitamos dos arhivos mipagina.pl y plantilla.html sencillamente no escribiremos codigo Perl en html, asi como hacen con php que meten todo en un solo lado con un desorden total, usaremos el sistema de plantillas para separar el diseño del codigo de forma elegante.

Primero el codigo mipagina.pl:

1.#!/usr/bin/perl -w
2.use CGI qw(:all);
3.use DBI;
4.use Template;
5.print header;
6.
7.my $host="servidor"; #Servidor donde se aloja la base de datos
8.my $base_datos="basedatos"; #Nombre de las base de datos
9.my $usuario="basedatos"; #Usuario de la BD
10.my $clave="password"; #Password de la BD
11.my $driver="mysql"; #Utilizamos el driver de mysql
12.
13.
14.#Conectamos a la base de datos
15.$dth= DBI->connect ("dbi:$driver:database=$base_datos;host=$host", $usuario, $clave);
16.
17.#Ejecutamos un select SQL
18.my $usuarios = $dth->selectall_arrayref("SELECT * FROM USUARIOS",{ Slice => {} });
19.# ver tutorial de base de datos si no entiendes esta linea20.
21.#creamos el objeto template
22.my $template = Template->new();
23.#print "". Dumper $s,$usuarios;
24.
25.# definimos variables a reemplazar en la plantilla26.# asignamos a una variable algunos datos obtenidos en usuarios por la consulta a la tabla usuarios
27.$value = $usuarios->⁰{'nombre'};
28.$value2 = $usuarios->⁰{'password'};
29.
30.
31. my $vars = {
32. usuario1 => $value,
33. password1 => $value2,
34. users => $usuarios,
35. };
36.
37. # damos el nombre de la plantilla que queremos procesar
38. my $input = 'plantilla.html';
39.
40. #procesamos
41. $template->process($input, $vars) || die $template->error();

Ahora plantilla.html

La idea es usar etiquetas simples en nuestra plantilla para ser reemplazados, vieron el facil ejemplo.

Para entender mas sobre conectar a base de datos ver tutorial
Trabajar con base de datos en Perl

http://www.perlhispano.com/cgi-bin/index.cgi?action=viewnews&id=26

Ahi podran entender sobre las referencias y como desplegar los datos obtenidos, Perl es muy facil para el desarrollo de paginas web y conexion a base de datos; Recuerda que cuando subas un archivo .pl debes darle permisos 755