[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