CGI - Codigo ejemplo formulario html/cgi(perl)

 
Vista:

Codigo ejemplo formulario html/cgi(perl)

Publicado por Jaldo (2 intervenciones) el 20/03/2001 14:36:59
Hola,
Soy nuevo en esto de CGI. Necesito para iniciarme un ejemplo de un formulario en HTML y el correspondiente programa perl para leerlo (cgi). Todo lo mas simple posible, pero que funcione. El interprete Perl de mi servidor es de la version 5.005_02
Saludos y gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Alejandro

Ejemplo básico de formulario HTML y programa Perl

Publicado por Alejandro (140 intervenciones) el 22/08/2023 22:24:15
A continuación, te proporcionaré un ejemplo simple de un formulario HTML y el correspondiente script CGI en Perl para procesarlo. Este ejemplo se basa en la versión de Perl 5.005_02 que mencionaste.

Paso 1: Crear el formulario HTML

Crea un archivo HTML llamado `formulario.html` con el siguiente contenido:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
<!DOCTYPE html>
<html>
<head>
    <title>Ejemplo de Formulario</title>
</head>
<body>
    <h1>Formulario de Contacto</h1>
    <form action="procesar_formulario.cgi" method="post">
        <label for="nombre">Nombre:</label>
        <input type="text" id="nombre" name="nombre"><br><br>
 
        <label for="email">Email:</label>
        <input type="email" id="email" name="email"><br><br>
 
        <input type="submit" value="Enviar">
    </form>
</body>
</html>

Paso 2: Crear el script CGI en Perl

Crea un archivo Perl llamado `procesar_formulario.cgi` con el siguiente contenido:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/usr/bin/perl -wT
 
use strict;
use CGI;
 
# Crear un objeto CGI
my $q = CGI->new;
 
# Obtener los datos del formulario
my $nombre = $q->param("nombre");
my $email = $q->param("email");
 
# Imprimir la respuesta
print "Content-Type: text/html\n\n";
print "<html><head><title>Respuesta</title></head><body>";
print "<h1>Respuesta del Formulario</h1>";
print "<p>Nombre: $nombre</p>";
print "<p>Email: $email</p>";
print "</body></html>";

Paso 3: Asignar permisos ejecutables al script CGI

Asegúrate de que el archivo `procesar_formulario.cgi` tenga permisos ejecutables para que el servidor web pueda ejecutarlo. Si estás en un sistema Unix-like, puedes hacerlo con el siguiente comando:

1
chmod +x procesar_formulario.cgi

Paso 4: Prueba en tu navegador

Coloca los archivos `formulario.html` y `procesar_formulario.cgi` en el directorio adecuado de tu servidor web (por ejemplo, `cgi-bin`).

Luego, abre tu navegador y accede a `http://tu_dominio.com/formulario.html`. Completa el formulario y envíalo. Deberías ver una página que muestra los datos ingresados.

Este es un ejemplo simple para ayudarte a iniciarte en CGI con Perl. Ten en cuenta que este ejemplo no incluye medidas de seguridad y validación completas que serían necesarias en una aplicación real.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar