Foro - Perl en Español

por **Nannythaa** » 2014-12-03 15:57 @706

Hola.

Necesito desarrollar una aplicación web que funcione a semejanza de la muestra, la que puedes ejecutar haciendo clic en esta liga: http://crk.ucc.mx/cgi-bin/muestra.cgi

La aplicación web debe quedar auto-contenida en un solo script escrito en lenguaje Perl, y NO DEBE aplicar ninguna lógica del lado del cliente (nada de Applets, controles ActiveX, JavaScript, Flash, etc.).

#!/usr/bin/perl -T
use CGI ':standard';
 
## Valores iniciales de las celdas
my %valores_iniciales = (
    a => 'yellow',
    b => 'cyan',
    c => 'black',
    d => 'red',
);
 
## Etiquetas para los desplegables
my %etiquetas = (
    yellow => 'Amarillo',
    cyan   => 'Azul cielo',
    black  => 'Negro',
    red    => 'Rojo',
);
 
## Orden en que deben aparecer las etiquetas en pantalla
my @orden_etiquetas = qw(yellow cyan black red);
 
 
## Caso de ser llamado por primera vez
if (not param()) {
    while (my($id,$valor) = each %valores_iniciales) {
        param(-name => $id, -value => $valor);  # inicializamos el valor del parámetro
    }
}
 
## Creación de las celdas de la tabla
my @celdas;
 
for my $id (sort keys %valores_iniciales) {
 
    my $select = scrolling_list(                # creamos el select
        -name     => $id,
        -values   => [ @orden_etiquetas ],
        -default  => $valores_iniciales{$id},
        -size     => 4,
        -multiple => 0,
        -labels   => \%etiquetas,
    );   
 
    push @celdas, td(                           # creamos la celda
        {
            -bgcolor => param($id),
            -height  => 300,
            -width   => 300,
            -align   => 'center',
            -valign  => 'center',
        },
        $select,                                # con el select dentro
    );
}
 
my $salida = table(                             # creamos la tabla
    {
        -border      => 0,
        -cellpadding => 5,
        -cellspacing => 5,
    },
    Tr(@celdas[0,1]),                           # compuesta de dos filas y
    Tr(@celdas[2,3]),                           # dos celdas por fila
)
. submit(-value => 'Aplicar colores')           # más el botón de envío
;
 
## Salida
print
    header,
    start_html('Colores'),
    start_form,
    $salida,
    end_form,
    end_html,
    ;
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Aplicación web hecha en Perl

Aplicación web hecha en Perl

Publicidad

Re: Aplicación web hecha en Perl

Re: Aplicación web hecha en Perl

¿Quién está conectado?