Foro de programacion

#1 (**permalink**) 11 de abril,2005, 09:08

Fallo en CGI
Hola, tengo el siguiente script creado:

Código:

#!/usr/bin/perl -w
use strict;
use CGI;
my $cgi = new CGI;
my %input_data = $cgi->Vars;

$nombre=$input_data{'usuario'};

print "Content-type: text/html\n\n";
print "Hola mundo";
exit;

El caso es que me da un error cuando intento ejecurarlo. He mirado en el log de errores y me dice que el error es debido a un final prematuro en las cabeceras del script, aunque no se a que se refiere.
Lo mas extraño es que si suprimo la linea $nombre=$input_data{'usuario'}; el script funciona mostrandome la pantallita de Hola Mundo.
EL formulario que llama a este script esta perfectamente configurado, lo he comprobado mil veces. ¿alguien sabe a que puede deberse esto??

#2 (**permalink**) 07 de agosto,2005, 18:45

Prueba con esto:

Código:

#!/usr/bin/perl -w
use strict;
use CGI;
my $cgi = new CGI;
my $input_data = $cgi->Vars;

my $nombre=$input_data->{usuario};

print "Content-type: text/html\n\n";
print "Hola mundo.\n";
print "Hola $nombre\n" if $nombre;

exit;

Los cambios son: cambiar el % por $ en la variable input_data, ya que Vars nos devuelve un puntero a un hash, no un hash.