• Publicidad

print $q->redirect(''); no funciona

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

print $q->redirect(''); no funciona

Notapor danimera » 2010-10-20 19:43 @863

Tengo
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
print $q->redirect('http://www.google.com');
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4


resulta que no me funciona y en vez de eso lo que me imprime es
Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
Status: 302 Found Location: http://www.google.com
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4


Esto me pasa en algunas partes de mi CMS que estoy programando, lo he usado durante todo el sistema, pero ahora que lo usaré para una parte pública resulta que no me funciona... creo que tiene que ver con algo de cabeceras, algo así...

Y a veces solo me imprime '1'.
100% Telch - Perl Web Programming
Cali PerlMongers: http://cali.pm.org
Avatar de Usuario
danimera
Perlero frecuente
Perlero frecuente
 
Mensajes: 871
Registrado: 2005-06-23 19:02 @834
Ubicación: Colombia

Publicidad

Re: print $q->redirect(''); no funciona

Notapor explorer » 2010-10-21 03:53 @203

La línea funciona correctamente:

Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
explorer@joaquin:~/> perl -e 'use CGI qw/:standard/; print redirect("http://www.google.com")'
Status: 302 Moved
Location: http://www.google.com

 
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4

Danimera, sin más código o mensajes de error es difícil ayudarte.

Deberías también hacer más pruebas (como la que te ha dado) para verificar el error, antes de publicarlo en el foro. La situación ideal es cuando puedes reproducir el error en un programa de pocas líneas, y lo puedes publicar entero por aquí.

No te olvides de consultar los mensajes de los ficheros de registro de actividad del servidor web. Para mi, al menos, es imprescindible. Y para desarrollo web con CGI, CGI::Carp también es muy útil (creo que tiene su contraparte en CGI::Application).

Recuerda, finalmente, que para asuntos urgentes, rápidos o pequeños, también estamos en el IRC, en diversos canales.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14476
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: print $q->redirect(''); no funciona

Notapor danimera » 2010-10-21 06:14 @301

How... no había visto bien, creí que había publicado más...

Bueno la verdad el problema es que trabajaba local en el server de prueba de Optiperl y me daba ese problema, que no me hacía la redirección solo me imprimía un '1' (quizás Optiperl lo hace así, por defecto).

Cuando lo subía al web server me daba error 500.

Fue muy difícil para mi hasta preguntar esto ya que no tiene sentido que no me realice un redirect y mi código donde pruebo eso tiene un if() y el redirect() pero está dentro de un módulo que es requerido desde otro módulo cgi-application.
100% Telch - Perl Web Programming
Cali PerlMongers: http://cali.pm.org
Avatar de Usuario
danimera
Perlero frecuente
Perlero frecuente
 
Mensajes: 871
Registrado: 2005-06-23 19:02 @834
Ubicación: Colombia


Volver a Básico

¿Quién está conectado?

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

cron