CGI ayuda para ejemplo

[jferrero]

En PHP sí que se puede hacer CGI. De hecho, en muchos sitios web, el ejecutable php está en la carpeta de los cgi.

Si por aquí usamos Perl es porque permite un desarrollo rápido de programas.

Este es un ejemplo de CGI escrito en Perl:

Código:

#!/usr/bin/perl
# CGI MINIMO
# Joaquin Ferrero. 2006.
# Este cgi sirve para comprobar si el servidor funciona con Perl+CGI
#
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);

print
    header,
    start_html('CGI MINIMO'),
    h1('CGI MINIMO'),
    hr,
    p("Si ves este texto es que SI esta funcionando bien"),
    hr;

# Aquí sacamos la lista de los parámetros
# en caso de que le haya sido pasado alguno
my @parametros = param();
foreach my $par ( @parametros ) {
        print p($par);
        print blockquote(param( $par ));
}

print end_html;

Tienes una buena introducción a CGI en la página de Wikipedia.