[web] rediriger page

Bonjour tlm,

Je voulais savoir si qqun savais comment rediriger ma page xxx.pl vers yyy.pl (un peu a la maniere de Server.Transfer et Response.Redirect en ASP.

car jai essayé ceci


use CGI qw(:standard);
print redirect('http://www.google.com');

et voici sa réponse

Status: 302 Moved Location: http://www.google.com ....
Sympa la réponse :x

#!/usr/local/bin/perl
use CGI;
$query = new CGI;
$mon_url = "http://www.google.com";

print $query->redirect($mon_url);

je viens de comprendre pkoi ca ne marchais pas...

effectivement

Citation:

---

Envoyé par arthurr

#!/usr/local/bin/perl
use CGI;
$query = new CGI;
$mon_url = "http://www.google.com";

print $query->redirect($mon_url);

---

ca marche bien sauf quand on met

print "Content-type: text/html\n\n";
la ca ne marche plus dutout ...
il fais son fameux Status: 302 Moved Location: http://www.google.com :(


et si je ne le met pas, ok il fait le redirect mais il m'invite également a télécharger le fichier.pl :(
Quelqu'un a-t-il une solution a ce dileme svp? :?

soit tu demande a perl de gerer le header soit tu le fais toi meme ...
il ne faut pas melanger les 2 ... ;)

Code:

---

1 2 3 4 5 6

#!/usr/local/bin/perl use CGI; $query = new CGI; $mon_url = "http://www.google.com"; print $query->redirect($mon_url);

---

Il est important de ne faire aucun "print" en cas de redirection ...
si tu veux pouvoir afficier des infos (par "print") et faire une redirection, il faut utiliser Refresh :

Code:

---

1 2 3 4 5 6 7

#!/usr/local/bin/perl use CGI; $query = new CGI; $mon_url = "http://www.google.com"; print $query->header(-Refresh=>"10; URL=$mon_url"); print "<b>Veuillez patienter, vous aller etre redirige sur <u>GOOGLE</u> dans 10 secondes ...</b>";

---

Oups cest vrai !!!!!!!


Tu as tout a fait raison

Merci pour les explications arthurr :D :wink: