Perl en Español

  1. Home
  2. Tutoriales
  3. Foro
  4. Artículos
  5. Donativos
  6. Publicidad
 
Índice general » Mundo Perl » Web » mandar link al mismo cgi Responder al tema
Nuevo tema


Página 1 de 1  [ 6 mensajes ] 
 
Nota 2006-03-23 05:21 @264

Perlero Nuevo
Registrado: 2006-02-27 04:15 @219
Mensajes: 48
mandar link al mismo cgi
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


Nota 2006-03-23 05:33 @273
Avatar de Usuario
Perlero Nuevo
Registrado: 2004-12-09 07:32 @355
Ubicación: españa
Mensajes: 78
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:
$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]


Nota 2006-03-23 05:56 @288

Perlero Nuevo
Registrado: 2006-02-27 04:15 @219
Mensajes: 48
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?


Nota 2006-03-23 06:08 @297
Avatar de Usuario
Perlero Nuevo
Registrado: 2004-12-09 07:32 @355
Ubicación: españa
Mensajes: 78
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]


Nota 2006-03-23 06:13 @301

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


Nota 2006-03-23 11:21 @515
Avatar de Usuario
Creador de Perl en Español
Registrado: 2003-10-15 16:52 @744
Ubicación: México
Mensajes: 1163
Hola:

Te recomiendo que cheques el siguiente tutorial:
http://perlenespanol.baboonsoftware.com ... 00032.html


Saludos

_________________
Uriel Lizama Perl programmer fundador de Perl en Español


Responder al tema  [ 6 mensajes ] 

Reglas del Foro
No puedes abrir nuevos temas en este Foro
No puedes responder a temas en este Foro
No puedes editar tus mensajes en este Foro
No puedes borrar tus mensajes en este Foro
No puedes enviar adjuntos en este Foro

Publicidad

Socializa

Síguenos por Twitter

Suscríbete GRATUITAMENTE al Boletín de Perl en Español

Saltar a:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Traducción al español por Huan Manwë para phpbb-es.com
phpBB SEO