Foro - Perl en Español

Hola a todos. He aquí de nuevo necesitando vuestra ayuda mientras me voy sumergiendo en este lenguaje tan interesante. Resulta que he creado un formulario en HTML que envía un sólo campo (el del nombre) mediante POST al cgi siguiente.

Código: Seleccionar todo

#! /usr/bin/perl -w

use CGI qw/:standard/;
my $FORM;
my $nombre;
#my $buffer;
my $numero;
$numero = 5;
print "Content-type: text/html\n\n";
read(STDIN, $FormData, $ENV{'CONTENT_LENGHT'});

@pairs = split(/&/, $FormData);

foreach $pair (@pairs)
{
   ($name, $value) = split(/=/, $pair);

   $value =~ tr/+/ /;
   $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
   $FORM{$name} = $value;
}
$FORM{'nombre'} = $nombre;
print "Hola $nombre\n";

Por algún motivo cuando ejecuto el cgi no me muestra en pantalla el $nombre. He revisado todo creo, en el HTML al campo del formulario nombre le puse como atributo name="nombre" por tanto creo que no es problema de eso. ¿Alguna sugerencia?

Gracias por vuestra ayuda

Hola:

La primera recomendación que te puedo hacer es eliminar todas esas líneas de código con las que lees los parametros recibidos y sustituirlas por unas sencillas líneas:

Código: Seleccionar todo

#!/usr/bin/perl -w

use strict;
use CGI;

my $query = new CGI;
my %FORM = $query->Vars;


print "Content-type: text/html\n\n";
print "Hola $FORM{'nombre'}\n";

exit(1);


Y a poco no se ve más bonito


Saludos

Es más, incluso hasta te puedes ahorrar el enviar el Content-Type:


Fíjate que realmente estoy componiendo una página html, porque eso es lo que se indica en el Content-Type. Si envías texto normal y corriente, deberás cambiar el header por header("text/plain").

Muchas gracias a ambos por la ayuda, al final seguí vuestras sugerencias y lo conseguí! El problema que tenía también con mi código inicial era que lo estaba editando con Kate, y éste por defecto codifica los caracteres como UTF-8 por eso me estaba dando problemas. Al reescribir el código en Emacs (que codifica en ASCII) me funcionó también a la primera.

Mil gracias y saludos

En el menú Herramientas->Codificación se puede cambiar la codificación que se usará en Kate. Y naturalmente, en la configuración.

Buenas, estoy intentando recoger los datos de mi formulario, y he usado el mismo código que aquí publicáis, pero no me funciona. Soy un poco novato aún y no sé cuál es el error. Os pego el código para ver si podéis ayudarme.
Formulario:


cgi (es un archivo .pl):


Y tan solo me muestra "Hola";

Muchas gracias de antemano y un saludo.

Prueba a cambiar "Hola $FORM{nombre}\n", por "Hola $FORM{'nombre'}\n", No se si en los hash influye las comillas, pero pondría la mano en el fuego que sí.

Te aconsejo poner al principio del código: use CGI::Carp; así te saldrán todos los errores que se encuentre en el propio navegador (a mi me va de muerte, ¡je,je,je!)

El problema está en el código HTML: en los elementos de entrada de texto, les has definido sus id (que sirven para ser referenciados desde el JavaScript), pero no les has definido sus name (nombre) para que sean referenciados desde los parámetros enviados por el POST.

Quedaría, por ejemplo:

Muchas gracias explorer, era justo eso, ya funciona.

Ahora me gustaría preguntarte más cosas, una de ellas es que en el formulario HTML tengo que meter un par de campos para fecha y hora, para empezar no sé si existe un tipo de campo fecha en HTML, o si tengo que poner un simple textbox. ¿Alguna idea?

Saludos.

No, no existe. Sí que existen controles más elaborados que registren la entrada a lo que deseemos e incluso algunos que muestran un calendario, por ejemplo, pero no forman parte de la biblioteca básica de componentes HTML, sino que se crean con más código HTML y JavaScript.

Te recomiendo que leas algún manual sobre HTML.