Desplegar HTML con Perl (2)

Es por eso que a mi me gusta mas este método. Es sumamente sencillo y le vas a tomar cariño en seguida.

La sintaxis es como siguiente:

print "Content-type: text/htmlnn";
print<<EOF;
todo el código HTML
EOF

La primera linea es el indicador que todo el print que sigue va a ser codigo HTML. Como puedes ver siempre es necesario.

Ahora veamoslo de nuevo

print<<EOF;

esto nos indica que abrimos algo así como una campo de print, donde todo lo que sigue va a ser un gran "print" y este campo lo terminamos con

EOF

que nos indica el fin del campo.

Para poder apreciarlo mejor, veamos el ejemplo anterior con la nueva técnica:

#!/usr/bin/perl
print "Content-type: text/htmlnn";
print<<EOF;
<html>
<body bgcolor="#FF0000">
<center>HOLA TODOS</center>
</body>
</html>
EOF

Como puedes ver el código se hace mas claro. Ahora no necesitamos el "n" explicito ya que nuestro interpretador crea las nuevas lineas automaticamente.

Tambén ya no es necesario utilizar una escape de comillas.

PRECAUCION: Aunque ya no necesitemos utilizar escape de comillas, todos los demas simbolos que necesitan escape AUN necesitan el escape (Valga la redudancia).

Ya que vimos como desplegar páginas HTML, ahora vamos a un ejemplo más complicado y completo.

print "Content-type: text/htmlnn";

my $nombre = 'Uriel Lizama';
my $sitio = 'www.BaboonSoftware.com';
my $lema = 'Un buen programador es aquel que con su intelecto puede trabar una maquina con dos lineas de codigo';

print<<EOF;
<html><head><title>EJEMPLO DE HTML</title></head>
<body>
<center><h1>HOLA, $nombre</h1></center>
 
Bienvenido a $sitio.... 
 
donde $lema
 
Para poder desplegar los simbolos: 
<center>$, @ y & </center>
 
Se debe de dar escape a los simbolos de la siguiente manera: 
<center> \$, \@, \& </center>
</body>
</html>
EOF

exit(1);

Usuarios que han visto este tema también han visto...

- Buscar en un array en Perl
- Funcionesde Perl
- Redirección de acuerdo a la resolución de la pantalla
- Hola Mundo
- Trabajar con archivos en Perl

- Versión imprimible de este documento

- Enviar por e-mail este documento