• Publicidad

mandar link al mismo cgi

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

mandar link al mismo cgi

Notapor dacons » 2006-03-23 05:21 @264

Hola ¿qué tal?
Tengo que hacer una página con 3 link, pero me gustaria tener un sólo fichero para todos, en vez de hacer
<a href=pintar.pl>pinta</a>
<a href=escribe.pl>escribe</a>
y que se vaya a buscar el .pl correspondiente

¿hay alguna manera de que vayan al mismo con alguna función para que dependiendo del link haga una cosa o la otra? bueno una función o lo que sea que se pueda hacer

Muchas gracias
dacons
Perlero nuevo
Perlero nuevo
 
Mensajes: 48
Registrado: 2006-02-27 04:15 @219

Publicidad

Notapor macgregor » 2006-03-23 05:33 @273

si he entendido bien, podrías poner lo siguiente en los links

http://mi.domimio/cgi-bin/mi-cgi.cgi?1
http://mi.domimio/cgi-bin/mi-cgi.cgi?2
http://mi.domimio/cgi-bin/mi-cgi.cgi?3

Así envias por el método GET un parámetro a tu CGI.
luego en el cgi podrías recoger el parámetro que se ha enviado.

Al tratarse de un solo número no tienes que complicarte la vida con decodificar la cadena que recibirás en el cgi.

Con la siguiente línea de código te sirve.
Código: Seleccionar todo
$opcion=$ENV{'QUERY_STRING'};


a partir de aqui ya sabes que link han pulsado :)

Espero que sea eso lo que querías.

Un saludo.
MACGREGOR [TM]
Avatar de Usuario
macgregor
Perlero nuevo
Perlero nuevo
 
Mensajes: 80
Registrado: 2004-12-09 07:32 @355
Ubicación: españa

Notapor dacons » 2006-03-23 05:56 @288

Entonces ahora tendria que hacer

if($opcion==//mi.dominio/cgi-bin/mi-cgi.cgi?1)
{
print "pinta";
}elsif($opcion==//mi.dominio/cgi-bin/mi-cgi.cgi?2)
{
print "escribe";
}
¿o no?
dacons
Perlero nuevo
Perlero nuevo
 
Mensajes: 48
Registrado: 2006-02-27 04:15 @219

Notapor macgregor » 2006-03-23 06:08 @297

no, ahora tu variable $opcion tendra un valor numérico.

el valor que le asignes después del interrogante en el link.

Por tanto tendrías que hacer:

if ($opcion==1) {código para pintar}
elsif ($opcion==2) {código para escribir}
elsif ($opcion==3) {código para la opción 3}

:)

Un saludo.
MACGREGOR [TM]
Avatar de Usuario
macgregor
Perlero nuevo
Perlero nuevo
 
Mensajes: 80
Registrado: 2004-12-09 07:32 @355
Ubicación: españa

Notapor dacons » 2006-03-23 06:13 @301

Muchisimas gracias por la ayuda
Un saludo
dacons
Perlero nuevo
Perlero nuevo
 
Mensajes: 48
Registrado: 2006-02-27 04:15 @219

Notapor kidd » 2006-03-23 11:21 @515

Hola:

Te recomiendo que cheques el siguiente tutorial:
http://perlenespanol.com/archives-tut/000032.html


Saludos
Uriel Lizama Perl programmer fundador de Perl en Español
Perl Programming Language
Avatar de Usuario
kidd
Creador de Perl en Español
Creador de Perl en Español
 
Mensajes: 1166
Registrado: 2003-10-15 16:52 @744
Ubicación: México


Volver a Web

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados