[perl] prob header avec Refresh Fermé

Question

bonjour,

j ai crée un script perl une page html, a partir de ce perl je veux introduire dans le header (meta) Refresh qui permettra au bout d un certain temps de rediriger ma page vers une autre

si je part directement d une page html et que j introduit ceci :
<META HTTP-EQUIV="Refresh" CONTENT="3;URL=toto.html"> et ben ca fonctionne tres bien 

si je pars d un perl pas du tout je pense que mes syntaxe ne sont pas correcte car en visualisant le code source html produit je n obtient pas la meta comme ci dessus car j ecris ceci:

-meta=>({http_equiv=>'Refresh',content=>'5;URL=http://ops_fr/fr/html/doris/leftcol'}),

aidez moi a me sortir de la sinon v plus avoir de cheveux sur la tete

mcfly · Answer

j ai trouver sur le net cette formule : 

$Query->start_html( -head=>meta({-http_equiv => 'refresh', -content =>'5,URL=http://ops_fr/fr/html/doris/leftcol'}),); 

mais a ma compilation j ai un message d erreur et pourtant je n arrive toujours pas a voir ce qui ne va pas du tout

lami20j · Answer

Salut,

essaie ça
print header(-head=>meta=>({-http_equiv  =>'Refresh',
                            -content     =>'5;URL=http://ops_fr/fr/html/doris/leftcol'})) lami20j

lami20j · Answer

Salut,

les balises META se trouvent dans <HEAD></HEAD>

Je n'ai pas testé, essaie quand même

my $HEAD = $Query->header(-head=>meta=>({-http_equiv  =>'Refresh',
                                         -content     =>'5;URL=http://ops_fr/fr/html/doris/leftcol'}),
                          -expires   =>'-1', 
                          -pragma    =>'no-cache'); 



my $HTML = $Query->start_html(-title =>'Liste des Logs pour $LogDir', 
                              -author=>'Kamel', 
                              -base  =>'true',); 

print "$HEADER\n$HTML\n@Body\n@Aff\n@Fin\n";

lami20j

lami20j · Answer

Ben, enleve pragamamy $HEAD = $Query->header(-head=>meta=>({-http_equiv  =>'Refresh',
                                         -content     =>'5;URL=http://ops_fr/fr/html/doris/leftcol'}),
                          -expires   =>'-1'); 



my $HTML = $Query->start_html(-title =>'Liste des Logs pour $LogDir', 
                              -author=>'Kamel', 
                              -base  =>'true',); 

print "$HEADER
$HTML
@Body
@Aff
@Fin
";Malheureusement je ne peux pas tester. Je suis sous win :-((

lami20j

lami20j · Answer

Ce n'est pas grave. 

En fait il est assez moche a regarder car j ai fait bcp de conditionnel sur des fichier savec bcp de cas possible de génération de pages en fonction des reponses.

En revanche, c'est exactement ça que j'ai pensé vu le bout que tu as donné.

Surtout avec Perl, il faut être discipliné en ce qui concerne l'écriture du code.
Pourquoi?
Ben, parce que Perl te laisse la liberté d'écrire n'importe comment.

lami20j

[perl] prob header avec Refresh

5 réponses

Discussions similaires