Discussion :

[nonolepetitmalin]

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

[arthurr]

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

print $query->redirect($mon_url);

[nonolepetitmalin]

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

effectivement

#!/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?

[arthurr]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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>";

[nonolepetitmalin]

Oups cest vrai !!!!!!!


Tu as tout a fait raison

Merci pour les explications arthurr