Lo primero que debemos hacer es crear el template que guardaremos en la misma carpeta que el archivo .pl.
template.tt2 (Preferiblemente puedes omitir la extensión tt2).
- <html>
- <head><title>Carta para [%planet%]</title></head>
- <body>
- <p>Gente de [%planet%], su atención por favor.</p>
- <p>Soy el Capitan [%captain%], que destruiré su planeta</p>
- <form action="/formu.html" method="POST">
- <input type="submit" value="Volver">
- </form>
- </body>
- </html>
Seguido creamos el segundo archivo que ubicaremos en la carpeta /www que crea apache2.
formu.html
- <html>
- <head><title>Formulario</title></head>
- <body>
- <form action="../cgi-bin/perltest.pl" method="POST">
- <p>Ingrese el planeta<input type="text" name="planet"></p>
- <p>Ingrese su nombre<input type="text" name="captain"></p>
- <p><input type="submit" value="Aceptar"</p>
- </form>
- </body>
- </html>
Y por último creamos el archivo .pl éste debe estar dentro de la carpeta cgi-bin para poder ser ejecutado (este archivo debe estar en la misma carpeta que el template)
Using perl Syntax Highlighting
#!/usr/bin/perl -wT
use strict;
use warnings;
use Template;
use CGI;
$| = 1;
print "Content-type: text/html\n\n";
my $q=new CGI;
my $planeta=$q->param('planet');
my $capitan=$q->param('captain');
my $tt = Template->new();
my $input ='template'; #o puede colocar template.tt2
my $vars = {
planet => $planeta,
captain=>$capitan,
};
$tt->process($input, vars) || die $tt->error();
use strict;
use warnings;
use Template;
use CGI;
$| = 1;
print "Content-type: text/html\n\n";
my $q=new CGI;
my $planeta=$q->param('planet');
my $capitan=$q->param('captain');
my $tt = Template->new();
my $input ='template'; #o puede colocar template.tt2
my $vars = {
planet => $planeta,
captain=>$capitan,
};
$tt->process($input, vars) || die $tt->error();
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
La página inicial será formu.html
Espero que les sirva de ayuda, este es mi primera práctica en Perl...
