Ver Mensaje Individual
  #4 (permalink)  
Antiguo 25/07/2002, 12:47
MMontes
 
Fecha de Ingreso: noviembre-2001
Mensajes: 415
Antigüedad: 23 años
Puntos: 0
Re: Ayuda con perl!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

para internet siempre que devolves algo tenes que decir que es ese algo antes...

la solucion mas facil es, cuando hay que mandar un mensaje escribir:

Código:
print "Content-Type: text/html\n\n";
print "<html><head><title>Pedido procesado</title></head><body>Pedido procesado con exito!!</body></html>";
si te manejas con bases de datos y cosas asi, supongo que no te sera dificil abrir un archivo.

con un simple:
Código:
open HTML, "mihtmlderespuesta.html" || die "No se pudo abrir el archivo!!!";
print "Content-type: text/html\n\n";
while (<HTML>) { print };
close GIF;
lo cual hace que la visual se mas interesante.

Dos puntos interesantes para tener en claro:
1) Cuando estamos enviando un encabezado HTTP (es el caso de Content-Type), se imprime uno por linea y se deja una linea vacia para indicar que lo que sigue es el contenido en si (por es los dos "\n")
2) Esto sirve para cualquier tipo de datos siempre que sepamos el tipo MIME del archivo correspondiente!!!!

por ejemplo:
Código:
open GIF, "miimagen.gif" || die "No se pudo abrir el archivo!!!";
print "Content-type: image/gif\n\n";
while (<GIF>) { print }
close GIF;