Perl

Lecture de date aléatoire.

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Lecture de date aléatoire.

Joseph75

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 :

#################################################
# Module de traitement de la date et de l'heure #
# locale. #
#################################################
# -- Fichier DateEdition.pm -- #
# -- Version HTML -- #
#################################################
# Créé le 12/08/2006
# Mis à jour le 18/08/2006 --> Modification mineure par ajout du zéro avant le chiffre
# --> des minutes et des secondes si <10.
#
#
package DateEdition;
my @alphajour=("dimanche","lundi","mardi","mercredi","jeudi","vendredi","samedi" );
my @alphamois=("janvier","février","mars","avril","mai","juin","juillet","août","septembre","octobre","novembre","décembre" );
my ($secondes,$minutes,$heure,$jmois,$mois,$annee1900,$jsemaine,$jannee,$hsaison) = "";
my ($annee);
local ($DtActuelle,$HrActuelle) = "";
($secondes,$minutes,$heure,$jmois,$mois,$annee1900,$jsemaine,$jannee,$hsaison)=localtime(time);
# Ajout du zéro avant le chiffre des minutes et des secondes si < 10.
if ($secondes<10)
{
$secondes = "0".$secondes;
}
if ($minutes<10)
{
$minutes = "0".$minutes;
}
# Mise à niveau de l'année.
$annee = $annee1900 + 1900;
# Traitement de la date.
sub DtLocale
{
$DtActuelle = $alphajour[$jsemaine]." ".$jmois." ".$alphamois[$mois]." ".$annee;
return ($DtActuelle);
}
# Traitement de l'heure.
sub HrLocale
{
if ($hsaison==1)
{
$HrActuelle = $heure."h".$minutes."m".$secondes."s, heure locale d'été";
}
else
{
$HrActuelle = $heure."h".$minutes."m".$secondes."s, heure locale d'hiver";
}
return($HrActuelle);
}
1;

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

Code :

#!/usr/bin/perl -w
use DateEdition;
my ($DateLocale,$HeureLocale)=" ";
DEBUT:
$DateLocale = &DateEdition::DtLocale;
$HeureLocale = &DateEdition::HrLocale;
print "\n";
print "Nous sommes le ".$DateLocale." et il est ".$HeureLocale."\n\n";
goto DEBUT;
exit (0);

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

Code :

#!/usr/bin/perl -w
#
# AfficheDateHTML.html
#
# Version 1.01
# Script créé le 22/08/2006.
#
#
use DateEdition;
my ($DateLocale,$HeureLocale)=" ";
# Génération de la date et l'heure.
$DateLocale = &DateEdition::DtLocale;
$HeureLocale = &DateEdition::HrLocale;
# Corps du Script d'affichage des données.
# En-tête de page HTML.
print <<PAGE_HTML;
Content-type:text/html
<html>
<head>
<title>Affiche la date et l'heure locale du serveur</title>
<meta name=\"author\" content=\"Joseph75\">
<meta http-equiv=\"pragma\" content=\"no-cache\">
<meta http-equiv=\"content-type\" content=\"text/html;charset=iso-8859-1\">
</head>
<body>
<center>
<b>Affiche la date et l'heure locale du serveur.</b>
</center>
<hr>
<center>
<b>Liste générée le $DateLocale à $HeureLocale.</b>
</center>
</body>
</html>
PAGE_HTML
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

Publicité

Elmoricq

Modérateur

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

Danjer

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

franceso

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

Joseph75

Bonjour et merci pour vos réponses.

francesco, tu sous-tendrais qu'il faudrait que j'inclus

Code :

use DateEdition;
$DateLocale = &DateEdition::DtLocale;
$HeureLocale = &DateEdition::HrLocale;
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

Elmoricq

Modérateur

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

Danjer

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

franceso

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

Joseph75

Merci,

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

Code :

#################################################
# Module de traitement de la date et de l'heure #
# locale. #
#################################################
# -- Fichier DateEdition.pm -- #
# -- Version HTML -- #
#################################################
# Créé le 12/08/2006
# Mis à jour le 18/08/2006 --> Modification mineure par ajout du zéro avant le chiffre
# --> des minutes et des secondes si <10.
# Mis à jour le 23/08/2006 --> Modification majeure sur le traitement de localtime.
#
package DateEdition;
my @alphajour=("dimanche","lundi","mardi","mercredi","jeudi","vendredi","samedi" );
my @alphamois=("janvier","février","mars","avril","mai","juin","juillet","août","septembre","octobre","novembre","décembre" );
my ($secondes,$minutes,$heure,$jmois,$mois,$annee1900,$jsemaine,$jannee,$hsaison) = "";
my ($annee);
local ($DtActuelle,$HrActuelle) = "";
# Traitement de la date.
sub DtLocale
{
($secondes,$minutes,$heure,$jmois,$mois,$annee1900,$jsemaine,$jannee,$hsaison)=localtime(time);
# Mise à niveau de l'année.
$annee = $annee1900 + 1900;
$DtActuelle = $alphajour[$jsemaine]." ".$jmois." ".$alphamois[$mois]." ".$annee;
return ($DtActuelle);
}
# Traitement de l'heure.
sub HrLocale
{
($secondes,$minutes,$heure,$jmois,$mois,$annee1900,$jsemaine,$jannee,$hsaison)=localtime(time);
# Ajout du zéro avant le chiffre des minutes et des secondes si < 10.
if ($secondes<10)
{
$secondes = "0".$secondes;
}
if ($minutes<10)
{
$minutes = "0".$minutes;
}
if ($hsaison==1)
{
$HrActuelle = $heure."h".$minutes."m".$secondes."s, heure locale d'été";
}
else
{
$HrActuelle = $heure."h".$minutes."m".$secondes."s, heure locale d'hiver";
}
return($HrActuelle);
}
1;

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

FORUM HardWare.fr

Programmation

Perl

Lecture de date aléatoire.

Sujets relatifs
date auto/ mysql	date sur base mysql phpbb
Afficher la date	pb lecture video flash avec IE
Problème date et graphique	lecture de matrice et problème de flux entre C++ et VB
Delphi : Problème de format de date	Lecture fichier texte UTF-8
[SQL SERVER 05][SSIS] Pb insert champ date	Problème sur un flux de lecture à partir d'un fichier .txt
Plus de sujets relatifs à : Lecture de date aléatoire.

Page générée en 0.118 secondes