Por una parte tengo este mini cgi, que muestra un combo en el cual se elige un código numérico entre 1 y 100:
Using perl Syntax Highlighting
- my $entrada="numero_usuarios.txt";
- open (ENTRADA,"$entrada") || die "ERROR: No puedo abrir el fichero $entrada\n";
- print <<ENDHTML;
- <LABEL class=hh3><p><strong><center>Reservar rango</center></strong></p></LABEL>
- <tr><td colspan="8"><center><SELECT class=w144 id=PARAMETRO tabIndex=3 name=PARAMETRO><\center>
- ENDHTML
- while (<ENTRADA>)
- {
- print "<OPTION value=$_ selected>$_</OPTION>";
- }
- print <<ENDHTML;
- </SELECT>
- <A HREF="http://localhost/cgi-bin/passwords.pl?$PARAMETRO"> Comenzar </A>
- ENDHTML
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Como veis le paso con el <A HREF> del final el atributo que me interesa, el $PARAMETRO al cgi que llamo.
Pero el cgi que es llamado, cuando hago
Using perl Syntax Highlighting
- $argumento=$ENV{"QUERY_STRING"}; print $argumento
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
no imprime nada, no recibe ningún valor. En cambio si a este cgi le llamo pasando algo que no sea una variable de Perl, sí que lo recibe, por ejemplo
Using perl Syntax Highlighting
- <A HREF="http://localhost/cgi-bin/passwords.pl?cadenamixta123">
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
La pregunta es, ¿cómo puedo hacer para guardar en una variable la opción elegida en el combo? Porque es lo que no me está funcionando bien...