• Publicidad

Duda con el print "Content-type: text/html\n\n"

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Duda con el print "Content-type: text/html\n\n"

Notapor thegame » 2011-12-07 11:30 @521

Hola. ¿Saben? Tengo el siguiente código en el cual hago un simple formulario pero en el navegador también me muestra "Content-Type: text/html; charset=ISO-8859-1"

Código:
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. #!/usr/bin/perl
  2. binmode STDOUT, ":encoding(ISO-8859-1)";
  3. use CGI;
  4. use CGI::Carp qw(fatalsToBrowser);
  5. use Mod_dir::buscar;
  6. #use strict;
  7. #use warnings;
  8. print error;
  9. print "Content-type: text/html\n\n";
  10.  
  11. my $q = new CGI;
  12. print $q->start_html({-script=>"$codigo_javascript"});
  13. print $q->header('text/html');
  14. print $q->startform(-method=>'POST');
  15. print $q->p('Nombre:'.$q->textfield({-name=>'nombre'}));
  16. print $q->p('Login:'.$q->textfield({-name=>'login'}));
  17. print $q->p('Contraseña:'.$q->password_field({-name=>'contraseña'}));
  18. print $q->submit({-value=>'Guardar'});
  19. print $q->reset({-value=>'Borrar Formulario'})."<br>";
  20. print $q->end_form;
  21. #print $query->end_html();
  22.  
  23.  
  24. my $tno=$q->param('nombre');
  25. my $log=$q->param('login');
  26. my $con=$q->param('contraseña');
  27.  
  28. if ($tno =~ /\w/){
  29.         my $formu=buscar->new;
  30.         my $insertado=0;
  31.         $insertado=$formu->enviar_admin($tno,$log,$con);
  32.         if ($insertado=1){
  33.                 print "Registro insertado correctamente";
  34.                         }
  35.         else{
  36.                 print "Registro no fue insertado";
  37.             }
  38.                         }
  39.  
  40.  
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4


y así se ve en el navegador:Imagen

¿Por qué me aparece el Content-type: text/html\n\n? Y si lo quito, no veo en el navegador el formulario. Gracias por la ayuda que me puedan dar.
thegame
Perlero nuevo
Perlero nuevo
 
Mensajes: 38
Registrado: 2011-11-08 11:19 @513
Ubicación: Venezuela

Publicidad

Re: Duda con el print "Content-type: text/html\n\n"

Notapor explorer » 2011-12-07 11:37 @526

La línea 9 te sobra porque en realidad ya lo haces en la línea 13.

Lo que tienes que hacer es:
  • sube la línea 13 delante de la 12 (header() es lo primero que debe ser impreso)
  • elimina la línea 9
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14486
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Duda con el print "Content-type: text/html\n\n"

Notapor thegame » 2011-12-07 14:27 @643

Gracias.
thegame
Perlero nuevo
Perlero nuevo
 
Mensajes: 38
Registrado: 2011-11-08 11:19 @513
Ubicación: Venezuela


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados

cron