[perl] prob header avec Refresh
mcfly
-
mcfly -
mcfly -
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
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
A voir également:
- [perl] prob header avec Refresh
- Comment refresh son pc - Guide
- Auto refresh - Télécharger - Divers Web & Internet
- Refresh dns - Guide
- Denon perl pro test - Accueil - Audio
- Network error. please refresh the page. ✓ - Forum Réseaux sociaux
5 réponses
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
$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
Salut,
essaie ça
essaie ça
print header(-head=>meta=>({-http_equiv =>'Refresh',
-content =>'5;URL=http://ops_fr/fr/html/doris/leftcol'})) lami20j
merci de ta reponse mais en fait je sais pas trop où exactement placer cela car si je le place j ai une erreur d execution:
voici comment je génére ma page html :
my @Aff; //qui va contenir une serie d information avec balise html
my $HTML = $Query->header(-expires=>'-1', pragma=>'no-cache');
my $HEADER = $Query->start_html(-title=>'Liste des Logs pour $LogDir',
-author=>'Kamel',
-base=>'true',
-meta=>({http_equiv=>'Content-type',content=>'text/html',charset=>'ISO-8859-1'}),
);
my @Body; //qui va generer le corps de ma page
my @Fin; //qui va me générer ma fin de page html : c.a.d </table></body></html>
et pour generer la page entier sous perl je fait :
print "$HTML\n$HEADER\n@Body\n@Aff\n@Fin\n";
voici comment je génére ma page html :
my @Aff; //qui va contenir une serie d information avec balise html
my $HTML = $Query->header(-expires=>'-1', pragma=>'no-cache');
my $HEADER = $Query->start_html(-title=>'Liste des Logs pour $LogDir',
-author=>'Kamel',
-base=>'true',
-meta=>({http_equiv=>'Content-type',content=>'text/html',charset=>'ISO-8859-1'}),
);
my @Body; //qui va generer le corps de ma page
my @Fin; //qui va me générer ma fin de page html : c.a.d </table></body></html>
et pour generer la page entier sous perl je fait :
print "$HTML\n$HEADER\n@Body\n@Aff\n@Fin\n";
Salut,
les balises META se trouvent dans <HEAD></HEAD>
Je n'ai pas testé, essaie quand même
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
voila j ai essayé mais j ai bien generartion de la page html sous unix mais pas apparition de balise meta j ai ceci comme message en haut de mon script :
Use of uninitialized value in concatenation (.) or string at ./epic_logdate.pl l ine 41.
1: pragma
Hash(0x811415c): -expires
Head: meta
No-cache
Content-Type: text/html; charset=ISO-8859-1
du coup mon script ne s 'execute pas correctement alors que si j enleve tout ce qui concerne le refresh tout fonctionne
Use of uninitialized value in concatenation (.) or string at ./epic_logdate.pl l ine 41.
1: pragma
Hash(0x811415c): -expires
Head: meta
No-cache
Content-Type: text/html; charset=ISO-8859-1
du coup mon script ne s 'execute pas correctement alors que si j enleve tout ce qui concerne le refresh tout fonctionne
Ben, enleve pragama
lami20j
my $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\n$HTML\n@Body\n@Aff\n@Fin\n";Malheureusement je ne peux pas tester. Je suis sous win :-((
lami20j
ha non toujours pareil :-((((
Pour le moment vais je crois mettre le rafraichissement de coté car ca marche sans. mais j abandonne pas car question d esthétique sur la page web "désagreable de voir le résultat d un autre manip tout au long de la connection au site"
Si tu as la possibilité de tester ca sera super étant donnée la facon avec laquelle je séche et ben trouverais pas la solution avant d avoir bu 1 tonne de café et passé 50 nuit blanche. :-))
Merci encore pour ton aide
Pour le moment vais je crois mettre le rafraichissement de coté car ca marche sans. mais j abandonne pas car question d esthétique sur la page web "désagreable de voir le résultat d un autre manip tout au long de la connection au site"
Si tu as la possibilité de tester ca sera super étant donnée la facon avec laquelle je séche et ben trouverais pas la solution avant d avoir bu 1 tonne de café et passé 50 nuit blanche. :-))
Merci encore pour ton aide
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. De plus une grosse partie des info du pgm sont confidentielles.
mais la description que je t en ai faite ci dessus est synthétique mais tres juste
Suis vraiment dsl
mais la description que je t en ai faite ci dessus est synthétique mais tres juste
Suis vraiment dsl
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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
