Foro - Perl en Español

Hola.

Tengo una consulta: deseo redireccionar mi salida de ejecución de mi SUBRUTINA a otra página.

Ejemplo: Tengo un formulario, lleno los campos, tengo un SUBMIT o un enlace que me lleva a otra subrutina que valida y graba los datos. En la SUB que valida coloco un mensaje con un BOTÓN que me lleve al .pl que yo quiera o a otra SUB. Hasta acá, chévere.

Lo que deseo es que al momento de hacer clic al BOTÓN del formulario que lleva a la SUB que graba los datos del formulario, ejecute el SUB pero llame otro .pl u otra URL sin tener que intervenir el usuario.

He tratado de usar esto al final de mi SUB pero no funciona. No lleva a el .pl o url que se indica.

print $q->redirect('http://rqbit.com.ve');

o

print "Location: http://rqbit.com.ve";

Quisiera, por favor, me ayudaran o me orientaran ya que lo he podio hacer en PHP con

header("Location: http://rqbit.com.ve");

pero en Perl estoy atascado.

Gracias.
rqbit

Cuando haces una redirección con el módulo CGI, la línea

print $q->redirect('http://rqbit.com.ve');

es correcta, si $q contiene un objeto CGI y, si antes de esa línea, NO has emitido nada hacia el exterior. Es decir: si quieres que el resultado de la ejecución de tu programa sea una redirección, el único print() que debe ocurrir es el del redirect().

Mira estos hilos:

• Validar formulario
• Mandar datos del formulario a otro cgi
• print $q->redirect(''); no funciona
• Ejecutar un programa antes que otro

Puedes tener más pistas de lo que está pasando si miras el archivo error.log del servidor web.