Lecture de date aléatoire.

Lecture de date aléatoire. - Perl - Programmation

Marsh Posté le 22-08-2006 à 23:56:00    

Bonsoir à tous.
 
Avant tout, et sans vouloir user de flatterie, bravo pour la qualité de vos réponses aux questions posées.
 
J'ai une question à poser qui, il me semble, n'a pas été traitée sur le forum et me pose problème.
J'ai créé un script Perl sous forme de modulle qui est sensé me donner la date et l'heure de mon serveur Apache.
Mais au lieu de donner l'heure en cours, il me renvoie une heure d'une page précédente.
 
Mais pour comprendre voici les fichiers :
 
** Module Perl **
**************

Code :
  1. #################################################
  2. # Module de traitement de la date et de l'heure #
  3. # locale.                                       #
  4. #################################################
  5. #         -- Fichier DateEdition.pm --          #
  6. #              -- Version HTML --               #
  7. #################################################
  8. # Créé le 12/08/2006
  9. # Mis à jour le 18/08/2006 --> Modification mineure par ajout du zéro avant le chiffre
  10. #                          --> des minutes et des secondes si <10.
  11. #
  12. #
  14. package DateEdition;
  16. my @alphajour=("dimanche","lundi","mardi","mercredi","jeudi","vendredi","samedi" );
  17. my @alphamois=("janvier","f&eacute;vrier","mars","avril","mai","juin","juillet","ao&ucirc;t","septembre","octobre","novembre","d&eacute;cembre" );
  18. my ($secondes,$minutes,$heure,$jmois,$mois,$annee1900,$jsemaine,$jannee,$hsaison) = "";
  19. my ($annee);
  21. local ($DtActuelle,$HrActuelle) = "";
  23. ($secondes,$minutes,$heure,$jmois,$mois,$annee1900,$jsemaine,$jannee,$hsaison)=localtime(time);
  25. # Ajout du zéro avant le chiffre des minutes et des secondes si < 10.
  26. if ($secondes<10)
  27.   {
  28.    $secondes = "0".$secondes;
  29.   }
  30. if ($minutes<10)
  31.   {
  32.    $minutes = "0".$minutes;
  33.   }
  35. # Mise à niveau de l'année.
  36. $annee = $annee1900 + 1900;
  38. # Traitement de la date.
  39. sub DtLocale
  40. {
  41. $DtActuelle = $alphajour[$jsemaine]." ".$jmois." ".$alphamois[$mois]." ".$annee;
  42. return ($DtActuelle);
  43. }
  45. # Traitement de l'heure.
  46. sub HrLocale
  47. {
  48. if ($hsaison==1)
  49.   {
  50.    $HrActuelle = $heure."h".$minutes."m".$secondes."s, heure locale d'&eacute;t&eacute;";
  51.   }
  52. else
  53.   {
  54.    $HrActuelle = $heure."h".$minutes."m".$secondes."s, heure locale d'hiver";
  55.   }
  56. return($HrActuelle);
  57. }
  58. 1;


** Affichage Date et Heure sur la console **
**********************************

Code :
  1. #!/usr/bin/perl -w
  3. use DateEdition;
  5. my ($DateLocale,$HeureLocale)=" ";
  7. DEBUT:
  8. $DateLocale  = &DateEdition::DtLocale;
  9. $HeureLocale = &DateEdition::HrLocale;
  11. print "\n";
  12. print "Nous sommes le ".$DateLocale." et il est ".$HeureLocale."\n\n";
  13. goto DEBUT;
  15. exit (0);


** Affichage Date et Heure dans document HTML **
***************************************

Code :
  1. #!/usr/bin/perl -w
  2. #
  3. # AfficheDateHTML.html
  4. #
  5. # Version 1.01
  6. # Script créé le 22/08/2006.
  7. #
  8. #
  10. use DateEdition;
  12. my ($DateLocale,$HeureLocale)=" ";
  14. # Génération de la date et l'heure.
  15. $DateLocale = &DateEdition::DtLocale;
  16. $HeureLocale = &DateEdition::HrLocale;
  18. # Corps du Script d'affichage des données.
  20. # En-tête de page HTML.
  21. print <<PAGE_HTML;
  22. Content-type:text/html
  24. <html>
  25. <head>
  26.   <title>Affiche la date et l'heure locale du serveur</title>
  27.    <meta name=\"author\" content=\"Joseph75\">
  28.    <meta http-equiv=\"pragma\" content=\"no-cache\">
  29.    <meta http-equiv=\"content-type\" content=\"text/html;charset=iso-8859-1\">
  30. </head>
  31. <body>
  32. <center>
  33.   <b>Affiche la date et l'heure locale du serveur.</b>
  34. </center>
  35. <hr>
  36. <center>
  37.   <b>Liste g&eacute;n&eacute;r&eacute;e le $DateLocale &agrave; $HeureLocale.</b>
  38. </center>
  39. </body>
  40. </html>
  42. PAGE_HTML
  43. exit(0);


Voilà les 3 fichiers.
Si quelqu'un a une idée ou des idées, alors je suis preneur car je sèche depuis quelques (10) jours.
 
Le phénomène est aussi visible si on modifie le code avec la version entourée par les goto.
 
Merci d'avance à vous tous et encore bravo.

Message cité 1 fois
Message édité par Joseph75 le 23-08-2006 à 00:21:32
Reply

Marsh Posté le 22-08-2006 à 23:56:00   

Reply

Marsh Posté le 23-08-2006 à 09:50:48    

Joseph75 a écrit :

Mais au lieu de donner l'heure en cours, il me renvoie une heure d'une page précédente.


 
Peux-tu être plus précis ?

Message cité 1 fois
Reply

Marsh Posté le 23-08-2006 à 11:31:54    

Elmoricq a écrit :

Peux-tu être plus précis ?


En fait il a l'heure du chargement du module...

Message cité 1 fois

---------------
Cdl, Danjer
Reply

Marsh Posté le 23-08-2006 à 14:08:56    

Danjer a écrit :

En fait il a l'heure du chargement du module...

C'est normal : tu évalues la fonction localtime une seule fois au chargement du module. Lors de tes appels ultérieurs aux fonctions HrLocale et DtLocale, tu ne fais que retourner l'heure/la date qui a été calculée au chargement.
Tu devrais encapsuler les lignes 21 à 36 dans une fonction qui serait appelée au début de HrLocale et de DtLocale pour récupérer la "vraie" heure/date courante.


---------------
TriScale innov
Reply

Marsh Posté le 23-08-2006 à 15:35:15    

Bonjour et merci pour vos réponses.
 
francesco, tu sous-tendrais qu'il faudrait que j'inclus

Code :
  1. use DateEdition;
  2. $DateLocale = &DateEdition::DtLocale;
  3. $HeureLocale = &DateEdition::HrLocale;
  4. print "Nous sommes le ".$DateLocale." et il est ".$HeureLocale."\n\n";


dans la boucle  
DEBUT:
 
goto DEBUT;
 
ou dans toute autre pour que la valeur soit re-calculée à chaque passage sur
use DateEdition ? Sinon, dans l'immédait, je ne vois pas comment faire.
 
Pour répondre aux deux autres questions, l'appel au module - DateEdition - est
inclus dans un script cgi-Perl du serveur Apache et il n'est << appelé >> que
lorsque l'on clique sur le lien mis sur ladite page.
 
Pour exemple <a href="/cgi-bin/AfficheDateHTML.pl">Affiche la date et l'heure</a>
 
Le recalcul ne se fait-il pas systématiquement lors de l'appel du script ?
 
Merci de vos réponses.

Message cité 1 fois
Reply

Marsh Posté le 23-08-2006 à 15:42:34    

De fait je n'avais pas fait attention que c'était un module que tu appelais.
 
Comme le dit franceso, la ligne :

($secondes,$minutes,$heure,$jmois,$mois,$annee1900,$jsemaine,$jannee,$hsaison)=localtime(time);


 
Il faut la déplacer/copier dans les fonctions DtLocale et HrLocale, autrement les variables sont initialisées une bonne fois pour toute au chargement du module, et jamais rafraîchies.

Message cité 1 fois
Reply

Marsh Posté le 23-08-2006 à 16:03:52    

Elmoricq a écrit :

... les variables sont initialisées une bonne fois pour toute au chargement du module, et jamais rafraîchies.


 
Ou dans le cas de ton CGI quand :  
  - apache est redemarre
  - si le fichier de ton module change (je me souviens plus... je crois)


---------------
Cdl, Danjer
Reply

Marsh Posté le 23-08-2006 à 16:07:35    

Joseph75 a écrit :

francesco, tu sous-tendrais qu'il faudrait que j'inclus [...] dans la boucle

Non, il faut que tu règles le problème dans ton module lui-même, pas dans le script qui y fait appel.
 
Dans le code de ton module, il faut que modifies les fonctions DtLocale et HrLocale pour qu'elles appellent elles-mêmes la fonction localtime(). Tes scripts incluant le module ne doivent pas être modifiés.


---------------
TriScale innov
Reply

Marsh Posté le 23-08-2006 à 16:11:10    

Merci,
 
c'est justement ce que je viens de faire et voici le code :
 

Code :
  1. #################################################
  2. # Module de traitement de la date et de l'heure #
  3. # locale.                                       #
  4. #################################################
  5. #         -- Fichier DateEdition.pm --          #
  6. #              -- Version HTML --               #
  7. #################################################
  8. # Créé le 12/08/2006
  9. # Mis à jour le 18/08/2006 --> Modification mineure par ajout du zéro avant le chiffre
  10. #                          --> des minutes et des secondes si <10.
  11. # Mis à jour le 23/08/2006 --> Modification majeure sur le traitement de localtime.
  12. #
  14. package DateEdition;
  16. my @alphajour=("dimanche","lundi","mardi","mercredi","jeudi","vendredi","samedi" );
  17. my @alphamois=("janvier","f&eacute;vrier","mars","avril","mai","juin","juillet","ao&ucirc;t","septembre","octobre","novembre","d&eacute;cembre" );
  18. my ($secondes,$minutes,$heure,$jmois,$mois,$annee1900,$jsemaine,$jannee,$hsaison) = "";
  19. my ($annee);
  21. local ($DtActuelle,$HrActuelle) = "";
  23. # Traitement de la date.
  24. sub DtLocale
  25. {
  26. ($secondes,$minutes,$heure,$jmois,$mois,$annee1900,$jsemaine,$jannee,$hsaison)=localtime(time);
  27. # Mise à niveau de l'année.
  28. $annee = $annee1900 + 1900;
  29. $DtActuelle = $alphajour[$jsemaine]." ".$jmois." ".$alphamois[$mois]." ".$annee;
  30. return ($DtActuelle);
  31. }
  33. # Traitement de l'heure.
  34. sub HrLocale
  35. {
  36. ($secondes,$minutes,$heure,$jmois,$mois,$annee1900,$jsemaine,$jannee,$hsaison)=localtime(time);
  37. # Ajout du zéro avant le chiffre des minutes et des secondes si < 10.
  38.   if ($secondes<10)
  39.    {
  40.     $secondes = "0".$secondes;
  41.    }
  42.   if ($minutes<10)
  43.    {
  44.     $minutes = "0".$minutes;
  45.    }
  46. if ($hsaison==1)
  47.   {
  48.    $HrActuelle = $heure."h".$minutes."m".$secondes."s, heure locale d'&eacute;t&eacute;";
  49.   }
  50. else
  51.   {
  52.    $HrActuelle = $heure."h".$minutes."m".$secondes."s, heure locale d'hiver";
  53.   }
  54. return($HrActuelle);
  55. }
  56. 1;


Si çà peut servir à quelqu'un ...
Merci à vous tous.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed