Como hago un script CGI en PERL?
En PERL se da lo mismo que en HTML, el texto no tiene formato alguno, si lo abrimos con el WordPad o el Block de notas de windows vemos perfectamente los códigos fuente!!! Con lo cual les estoy diciendo que tienen que usar algún editor de PERL o de Texto puro, que no le agregue formato como hace el microsoft word y otros, que no son para programar.
Existe un muy buen editor de PERL que se llama dzsoft perl editor y lo pueden encontrar en:
www.dzsoft.com
Cuando hagamos este primer script le debemos colocar la extensión .pl o .cgi, si bien puede que no sea necesario es mejor hacerlo así.
BIEN, ya tenemos el el block de notas de windows y creamos un archivo que se llama miprimerscript.pl y lo subiré a mi carpeta CGI del servidor…Pero que coloco en el archivo???
Bueno, lo primero que debemos colocar en la primera linea del código es la ubicación del intérprete de PERL (línea que se llama sheebang y empieza con #!) Y eso????. Si, para que el servidor pueda procesar los scripts CGI de perl debe tener instalado el intérprete de PERL, que es muy fácil de instalar en cualquiera de los sistemas operativos y hasta ya viene en muchas de las distribiciones de Linux.
e
Entonces, tenemos que conocer cual es la ubicación que tiene el intérprete de PERL en el servidor para poder ejecutar estos archivos. Si bien le podemos preguntar a nuestros proveedores de hosting, generalmente se encuentran en el mismo lugar, de manera que nuestra linea de código quedará parecida a estas:
Si es linux:
#!/usr/bin/perl
Si es windows:
#!c:/perl/bin/perl.exe
Imprimir mensajes a través del navegador del usuario
Cuando tenemos el script, que realiza todos los procesos como loggeo de usuario, administrar bases de datos y demás funciones que podrán aprender en todos los demás tutoriales que se encuentran en este sitio, debemos mandarle al navegador web el código de HTML que queremos que le muestre al usuario cuando el script es ejecutado, que en nuestro caso será algo así:
#!/usr/bin/perl
print “content-type: text/html \n\n”;
print “Bienvenidos a mi script, si vemos este mensaje es porque funciona todo perfecto”;
exit(1);
Tres cuestiones a tener en cuenta:
•1) Antes de imprimir el mensaje de HTML colocamos la linea de
print “content-type: text/html \n\n”;con lo cual le indicamos que es un texto de HTML. Sin esta línea de código, el navegador mostrará un mensaje de error porque nunca se supo que el texto era de HTML y que había que mostrarlo por el navegador.
•2) Después de cada línea de código colocamos un punto y coma (;) esto es una regla de PERL, que luego veremos en otros tutoriales
•3) Al terminar el script colocamos exit(1); con lo cual le damos un fin a nuestro script
fuente: perle espanol