High-Tech Santé Médecine Droit-Finances

Auto-Entrepreneur

Comment faire ?

Rechercher : dans
Par :

[perl] prob header avec Refresh

Dernière réponse le 6 nov 2006 à 09:30:02 mcfly, le 3 nov 2006 à 10:13:03 
 Signaler ce message aux modérateurs

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

Meilleures réponses pour « [perl] prob header avec Refresh » dans :
Bad pool caller / Header VoirSymptômes Un écran bleu d'affiche avec le message suivant : Bad Pool Caller Bad Pool Header Résolution Le message d'erreur Bad Pool Caller ou Bad Pool Header signifie que l'appel d'une application a échoué. Il est généralement suivi d'un certain...
[PHP] Headers already sent by..... VoirLorsque vous utilisez une fonction PHP qui manipule les en-têtes HTTP comme par exemple: header() setcookie() session_start() Il est important d'utiliser ces fonctions avant d'avoir généré le moindre flux vers le client. A partir du moment où...
Les balises dans la partie 'head' VoirAvant tout : rappel sur le doctype La partie head Balises meta Mots clés Description Déclaration de la langue du site Catégorie Auteur Restrictions pour les moteurs de recherche Adresse de la page Logiciels utilisés pour la...
Perl - Les fichiers VoirLa notion de filehandle On appelle filehandle (traduisez descripteur de fichier), dans un programme Perl, le nom permettant de manipuler une connexion d'entrée-sortie (les entrées-sorties standards vues précédemment sont connues par les filehandles...
Les variables avec Perl VoirConcept de variable avec Perl Une variable est un objet repéré par son nom, pouvant contenir des données, qui pourront être modifiées lors de l'exécution du programme. Les variables en langage Perl peuvent être de trois...
Perl - Caractéristiques du langage VoirFichier source, et interprétation Le fichier source d'un programme écrit en Perl est un simple fichier texte dont l'extension est par convention .pl. Ce fichier source doit être un fichier texte non formatté, c'est-à-dire un fichier texte dans sa...
Posez votre question Répondre

2

mcfly, le 3 nov 2006 à 10:59:31

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

   
Répondre à mcfly

3

lami20j, le 3 nov 2006 à 10:59:58

Salut,

essaie ça 

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

   
Répondre à lami20j

4

mcfly, le 3 nov 2006 à 12:28:58

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

   
Répondre à mcfly

5

lami20j, le 3 nov 2006 à 12:53:34

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

   
Répondre à lami20j

6

mcfly, le 3 nov 2006 à 13:50:19

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

   
Répondre à mcfly

7

lami20j, le 3 nov 2006 à 14:17:33

Ben, enleve pragama

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

   
Répondre à lami20j

8

mcfly, le 3 nov 2006 à 14:28:19

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

   
Répondre à mcfly

9

lami20j, le 3 nov 2006 à 14:44:59

Bien sûr que je peux ;-)

J'aimerai bien voir ton code si c'est possible.

lami20j

   
Répondre à lami20j

10

mcfly, le 3 nov 2006 à 14:57:57

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

   
Répondre à mcfly

lami20j, le 3 nov 2006 à 15:30:59

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

   
Répondre à lami20j

11

 mcfly, le 6 nov 2006 à 09:30:02

Salut,

Comme prévu g de nouveau essayé de trouver le prob mais je me suis de nouvo heurté a un non fonctionnement de Refresh.

As tu eu l occasion de faire quelques tests?

merci pour ton aide

   
Répondre à mcfly
Posez votre question Répondre
Ils ont besoin de votre aide