Ver Tema

Doddy · Jue Abr 22, 2010 1:06 pm

Hola a todos.

Quiero hacer un formulario totalmente en CGI, o sea, que todo sea en un mismo archivo y no poner archivo HTML externos.

¿Alguien conoce alguna manera?

PD: también me gustaría saber dónde encuentro un manual para usar un CGI en vez de archivos externos html.

ficovh · Jue Abr 22, 2010 2:38 pm

CGI.pm es tu amigo, http://perldoc.perl.org/CGI.html

Aunque en estos días, es mejor usar alguna sistema de plantillas como Template Toolkit, HTML-Template y usar Perl para pasar información a ellas.

Saludos.

explorer · Jue Abr 22, 2010 3:24 pm

Mira la sinopsis del módulo CGI, donde hay un ejemplo de cómo crear información HTML a partir de funciones del módulo.

Para lo del formulario... enlazas el formulario desde otra página. Al principio del programa compruebas el valor de los parámetros que el usuario te haya pasado (con params(), por ejemplo). En la primera invocación, no habrá nada, así que sabrás que tienes que pintar el formulario vacío. Pero si hay parámetros, es que el usuario ha recargado la página o ha pulsado el botón de envío. Esto último también lo compruebas mirando el param() correspondiente, y actúas según el caso.

Mira mi CGI mínimo, donde puedes ver cómo se accede a los parámetros.

danimera · Sab Abr 24, 2010 1:02 am

Doddy escribió:

Hola a todos.

Quiero hacer un formulario totalmente en CGI, o sea, que todo sea en un mismo archivo y no poner archivo HTML externos.

¿Alguien conoce alguna manera?

PD: también me gustaría saber dónde encuentro un manual para usar un CGI en vez de archivos externos html.

Pues FormBuilder te ayuda con eso fácilmente. Ejemplo de formulario:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use CGI::FormBuilder;
 
@fields = qw(first_name last_name email phone);
 
$form = CGI::FormBuilder->new(
             fields => \@fields,
        );
 
if ($form->submitted && $form->validate) {
    # you would write code here to act on the form data
    $fname = $form->field('first_name');
    $lname = $form->field('last_name');
 
    print $form->confirm(header => 1);
} else {
    print $form->render(header => 1);
}

Este te genera todo el HTML solo,
http://www.formbuilder.org/tutor/index.pl?c=1&s=2

marcmb · Jue May 13, 2010 11:11 am

¿Alguien sabe cómo hacer para que cuando apretemos el botón de mandar el formulario ejecute una función de Perl?
(usando CGI, no FormBuilder)
De momento lo he echo así y funciona, pero no se si es la mejor manera:

if (param('enviar')) #enviar es el nombre del botón de envio
{
#Comprobación de los campos rellenados;
}

Gracias de antemano.

Publicidad

Socializa