Una de las alegrías de la utilización de Perl para el desarrollo web es la facilidad de imprimir el resultado de la página web. La mayoría de las lenguas tienen funciones de impresión de una sola línea y la sintaxis engorroso para incrustar valores de las variables en la cadena de producción , por lo que imprimir cientos de líneas de contenido con formato HTML inmanejable. Perl cuenta con un comando especial de impresión que imprime todo hasta que se encuentra con una cadena especial que marca el final del texto . Las variables encontradas en el texto se evalúan y se sustituyen por sus valores. Estas características hacen que sea fácil de escribir , leer y mantener HTML incrustado en el guión.
HTML
Antes de imprimir el código HTML , imprimir el encabezado de la página web. Esta línea utiliza el comando estándar de impresión Perl :
print " Content-type : text /html \\ n \\ n";
Si está utilizando la biblioteca cgi- lib.pl , puede llame a la subrutina Printheader en lugar de imprimir el encabezado de forma explícita .
Cuando esté listo para imprimir bloques de salida HTML en el código Perl , utilice el comando "print <<" seguido de la cadena de caracteres que desea usar para marcar el final de la salida. La cadena puede ser lo que quieras , pero que sea algo único que no se encuentra dentro del código HTML. Por ejemplo , podría utilizar " EOP " (fin de la impresión) , " STOPHERE " , o, como en este ejemplo, " ENDHTML ":
impresión << ENDHTML ;
Añadir el código HTML, escapar los caracteres especiales que desee imprimir , como el " @" y " $", con una barra invertida , y la incrustación de las variables que desea imprimir en la página. Por ejemplo , la secuencia de comandos se ha calculado el costo de los artículos en un carro de compras , almacenar ese valor en la variable "$ cost" , e imprime la información del pedido :
html head < title> Mi Página Web < /title> < /head>
Su total del pedido es de $ costo. < /p> Los artículos devueltos se cobrará una tasa de reposición \\ $ 2.00. < ;/p> Contactos . < /a> < /p> < /body> < /html>
al final de su bloque HTML, puso el marcador de fin de impresión se establece en el inicio de la impresión. Debe utilizar la misma cadena sin espacios en blanco :
ENDHTML
Inline Frames
marcos flotantes toman una referencia externa a un dirección web. Puede imprimir el marco del código HTML en línea al igual que cualquier otra impresión de bloque en Perl :
impresión << ENDIFRAME ; < iframe src = título " page.html " = " Una página en un marco flotante " > ... < /iframe > ENDIFRAME
Si el script es determinar qué página se cargue la base de datos del usuario , puede utilizar las variables para establecer el origen de la trama y título:
impresión << ENDIFRAME ;