Un script CGI puede ser tan simple o complejo como lo necesite. Podría estar en Perl Java, Python o cualquier lenguaje de programación. En esencia, una aplicación CGI simplemente toma una solicitud a través de HTTP (generalmente un navegador web) y devuelve HTML. Veamos un simple Perl Hola Mundo Guión CGI y descomponerlo en sus formas más simples.

 #! / usr / bin / perl
imprimir "Tipo de contenido: texto / html \ n \ n";
imprimir <




Un simple CGI de Perl

Hola Mundo


HTML
salida; 

Si ejecuta el programa en la línea de comando, verá que hace exactamente lo que esperaba. Primero, imprime el Tipo de contenido línea, luego imprime el HTML sin formato. Para verlo en acción en un navegador web, deberá copiar o cargar el script en su servidor web y asegurarse de que los permisos estén configurados correctamente (chmod 755 en los sistemas * nix). Una vez que lo haya configurado correctamente, debería poder buscarlo y ver la página que se muestra en vivo en su servidor.

La línea clave es la primera declaración de impresión:

 imprimir "Tipo de contenido: texto / html \ n \ n"; 

Esto le dice al navegador que el documento que viene después de los dos nuevas líneas va a ser HTML Tú debe envíe un encabezado para que el navegador sepa qué tipo de documento vendrá a continuación, y debe incluir una línea en blanco entre el encabezado y el documento real.

Una vez que se envía el encabezado, solo es cuestión de enviar el documento HTML. En el ejemplo anterior, estamos utilizando un documento aquí para simplificar la impresión de una gran parte de texto sin formato. Por supuesto, esto no es realmente diferente de tener un documento HTML simple en su servidor. El poder real de usar un lenguaje de programación como Perl para crear su HTML se produce cuando agrega alguna programación de Perl elegante.

En el siguiente ejemplo, tomemos parte de esto guión de hora y fecha y agrégalo a tu página web.

 #! / usr / bin / perl
@months = qw (ene feb mar abr may jun jul ago sep oct nov dic);
@weekDays = qw (dom lun mar mié jue vie sáb dom);
($ segundo, $ minuto, $ hora, $ dayOfMonth, $ mes, $ yearOffset, $ dayOfWeek, $ dayOfYear, $ daylightSavings) = localtime ();
$ año = 1900 + $ añoOffset;
$ theTime = "$ weekDays [$ dayOfWeek] $ meses [$ mes] $ dayOfMonth, $ año";
imprimir "Tipo de contenido: texto / html \ n \ n";
imprimir <




Un simple CGI de Perl

$ theTime


HTML
salida; 

Este nuevo script CGI insertará la fecha actual en la página cada vez que se llame al script. En otras palabras, se convierte en un dinámica documento que cambia a medida que cambia la fecha, en lugar de un estático documento.