Validar un Select en Perl

[sadragoba]

Hola que tal!!

Estoy haciendo un sistema de compras en donde mi programacion es en base a Perl, soy nuevo en esto de la programacion en Perl pero ahi la llevo

Mi problema o duda es :
Tengo un Select en donde mis opciones son los tipos de pedidos que pueden hacer (Papeleria Comun, Equipos de Computo, Promocionales, etc...) . Lo que me gustaria es que de acuerdo a la opcion que eligan en el combo, debajo del combo en una tabla HTML se pinten los articulos que son del tipo de pedido que eligieron en el combo, es decir si eligieron Papeleria Comun, que solo se pinten los articulos de Papeleria C.

Les comento que la tabla HTML con el catalogo de los articulos ya la tengo poblada desde la base de datos, ahora solo me gustaria hacer los que le comento, tengo idea que se puede hacer con el selected, pero aun no puedo conciliar como se hace. Espero puedan ayudarme, les dejo parte de mi codigo. Gracias!


sub inicio {

my $rsf = Pg_VB->new();
$rsf->connectdb("dbname=compras");

print qq¡

Selecciona tu tipo de pedido: <select name="tipopedido">
<option value="0"> Selecciona</option>
¡;
$rsf->execute ("select cve_pedido, tipo_pedido from tc_tipopedido order by 1");

while ($rs = $rsf->getrow_hashref) {
print "<option value=\"$$rs{'cve_pedido'}\" selected>$$rs{'tipo_pedido'}</option>";
}
}

[zerokilled]

buenas,
si quieres hacerlo con perl, entonces la solución no es con javascript, ¿no crees? en javascript también lo puedes hacer al igual que desde lado servidor. diferencia, en javascript obtienes el resultado al instante. en servidor, tendrias que enviar constantemente la consulta cada vez que se cambie una opcion. en el foro han habido muchos temas relacionados, busca por select anidados o select combos.

[sadragoba]

Si es dificil conciliar mis ideas de programar con javascript y perl, pero bueno puedes explicarme mas acerca de lo que me estas diciendo para hacer lo que me gustaria en el sistema? Estoy viendo los temas que me mencionaste pero si puedes auxiliarme estaria muy bien

Gracias!