[l-desarrollo] [P] técnicas para programar CGIs (perl )

Gustavo Delfino gdelfino at mac.com
Tue Jul 1 16:58:35 CDT 2003


On 6/6/03 at 11:55 AM, emhn at telcel.net.ve (Ernesto Hernandez-Novich) wrote:

> Particularmente implemento esto con una tabla de despacho donde asocio
> los nombres de rutinas a los posibles valores que tendrá el campo oculto
> 'destino' que viene de la forma.
> 
> %pagina {
>   'Principal' => \&pinta_pagina_principal,
>   'Primera'   => \&pinta_primera_pagina,
>     ...
>   'Ultima'    => \&pinta_ultima_pagina,
> };
> $destino = $q->param('destino');
> if (defined($pagina{$destino})) {
>   $pagina{$destino}->();    # Ejecutar función vía referencia.
> } else {
>   no_existe_la_pagina();
> }

Otra alternativa es utilizar el paquete CGI::Application.  hay un artículo
en referencia a este paquete en:

http://www.perl.com/pub/a/2001/06/05/cgi.html

Saludos,

Gustavo Delfino
------------------------------------------------------------------------
Enviar e-mail a <majordomo at pm.org> colocando en el cuerpo:
"UNSUBSCRIBE caracas-pm-list" para desuscribirse.
"INFO caracas-pm-list" para conocer las reglas de etiqueta.
------------------------------------------------------------------------



More information about the caracas-pm mailing list