• Publicidad

Aplicación web hecha en Perl

Todo lo relacionado con el desarrollo Web con Perl: desde CGI hasta Mojolicious

Aplicación web hecha en Perl

Notapor 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.).
Nannythaa
Perlero nuevo
Perlero nuevo
 
Mensajes: 1
Registrado: 2014-12-03 15:38 @693

Publicidad

Re: Aplicación web hecha en Perl

Notapor explorer » 2014-12-03 17:04 @752

Bienvenida a los foros de Perl en Español, Nannythaa.

No sabemos qué conocimientos tienes de Perl, ni si tienes hecho ya algo de código.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Aplicación web hecha en Perl

Notapor explorer » 2014-12-14 19:54 @870

Esta es mi versión:
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. #!/usr/bin/perl -T
  2. use CGI ':standard';
  3.  
  4. ## Valores iniciales de las celdas
  5. my %valores_iniciales = (
  6.     a => 'yellow',
  7.     b => 'cyan',
  8.     c => 'black',
  9.     d => 'red',
  10. );
  11.  
  12. ## Etiquetas para los desplegables
  13. my %etiquetas = (
  14.     yellow => 'Amarillo',
  15.     cyan   => 'Azul cielo',
  16.     black  => 'Negro',
  17.     red    => 'Rojo',
  18. );
  19.  
  20. ## Orden en que deben aparecer las etiquetas en pantalla
  21. my @orden_etiquetas = qw(yellow cyan black red);
  22.  
  23.  
  24. ## Caso de ser llamado por primera vez
  25. if (not param()) {
  26.     while (my($id,$valor) = each %valores_iniciales) {
  27.         param(-name => $id, -value => $valor);  # inicializamos el valor del parámetro
  28.     }
  29. }
  30.  
  31. ## Creación de las celdas de la tabla
  32. my @celdas;
  33.  
  34. for my $id (sort keys %valores_iniciales) {
  35.  
  36.     my $select = scrolling_list(                # creamos el select
  37.         -name     => $id,
  38.         -values   => [ @orden_etiquetas ],
  39.         -default  => $valores_iniciales{$id},
  40.         -size     => 4,
  41.         -multiple => 0,
  42.         -labels   => \%etiquetas,
  43.     );  
  44.  
  45.     push @celdas, td(                           # creamos la celda
  46.         {
  47.             -bgcolor => param($id),
  48.             -height  => 300,
  49.             -width   => 300,
  50.             -align   => 'center',
  51.             -valign  => 'center',
  52.         },
  53.         $select,                                # con el select dentro
  54.     );
  55. }
  56.  
  57. my $salida = table(                             # creamos la tabla
  58.     {
  59.         -border      => 0,
  60.         -cellpadding => 5,
  61.         -cellspacing => 5,
  62.     },
  63.     Tr(@celdas[0,1]),                           # compuesta de dos filas y
  64.     Tr(@celdas[2,3]),                           # dos celdas por fila
  65. )
  66. . submit(-value => 'Aplicar colores')           # más el botón de envío
  67. ;
  68.  
  69. ## Salida
  70. print
  71.     header,
  72.     start_html('Colores'),
  73.     start_form,
  74.     $salida,
  75.     end_form,
  76.     end_html,
  77.     ;
  78.  
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España


Volver a Web

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado

cron