Foro - Perl en Español

Gracias por su buena predisposicion para ayudarme.

DADO EL SIGUIENTE CASO, tengo un FOrm con un campo scrolling_list que permite al usuario selecccionar MAS DE UN VALOR.

print scrolling_list(-name=>'list_name',
-values=>['eenie','meenie','minie','moe'],
-default=>['eenie','moe'],
-size=>5,
-multiple=>'true',
-labels=>\%labels,
-attributes=>\%attributes);

MI PROBLEMA ES : EL PL que recibe los parametros enviados por el Form , NO ME ESTA TOMANDO TODOS LOS ELEMENTOS elegidos en el scrolling_list , solo el primero.

Yo estoy haciendo:

my @lista = $q->param('list_name') || "";

foreach $ver (@lista)
{
print "--- $ver ---" ;
}

Pero no recibo todos los elementos seleccionados, solo el primero.
Muchas gracias,

El problema está en la línea

Código: Seleccionar todo

my @lista = $q->param('list_name') || "";

Quita el '||' y el resto de la línea.
Cambiala por algo como esto:

Código: Seleccionar todo

my @lista = ( $q->param('list_name') ) ? $q->param('list_name') : ();

O mejor aún

Código: Seleccionar todo

my @lista = $q->param('list_name');