Perl

Script perl qui convertit les fuseaux horaires

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Script perl qui convertit les fuseaux horaires

_Faust_

Burn-out général

Salut,

Je dois écrire un petit script en PERL mais je ne connais vraiment pas ce langage...

Le script doit transformer l?heure donnée vers une heure d?un autre fuseau horaire. Le premier paramètre est l?heure à transformer (format XX :YY où XX est entre 1 et 12, et YY est entre 0 et 59). Et le deuxième paramètre est le fuseau horaire demandé (PST, MST, CST, AST, NST).

Ca serait quoi la meilleure façon de faire ca? Il y a des variables prédéfinies? J'affecte une valeurs à tous les fuseaux horaires? Je fais un if à chaque fuseaux? :heink:

Code :

./convert.pl 4:00 CST
#!/usr/bin/perl
fuseaux1 = $heure + 1
fuseaux2 = $heure + 2
print " $heure + fuseaux "

qq choses comme ca?

Publicité

Taz

bisounours-codeur

les fonctions de temps de perl

_Faust_

Burn-out général

je peux avoir plus de détails svp?

Taz

bisounours-codeur

Time::*

pospos

Si tes entrée sont vraiment un string de type "XX:YY" et un fuseau horaire en string sur trois lettres alors je ne pense pas qu'un module existant poirra t'aider (mais je me trompe peutetre). Par contre c'est assez simple à faire.

Je ne sais pas exactement ce que tu veux recuperer en sortie, mais pour tes fuseaux déjà au lieu de faire un switch (ou plutot un if elsif... pasque switch n'existe pas en natif), tu peux utiliser une table de hash:

Code :

my %decalage_fuseau = (
PST => -8,
MST => -7,
CST => -6,
EST => -5,
AST => -4,
NST => -3.5,
);

ensuite il te suffit de recuperer la valeur de ton fuseau à partir de son nom en passant celui ci comme clé de ta table de hash:

Code :

my $decalage = $fuseaux{$argument2}

le probleme c'est que le NST est un decalage de 3h30 donc tu ne peux pas simplement decaler les heures, donc faux convertir tout ca en minutes, faire la tembouille, et resortir tout ca (dans quel format? un print à l'ecran?)

apres faudrait rajouter qq trucs pour check les arguments au début

En gros tu peux faire comme ca:

Code :

./convert 4:00 CST
use strict;
my %decalage_fuseau = (
PST => -8,
MST => -7,
CST => -6,
EST => -5,
AST => -4,
NST => -3.5,
);
# on recupere les arguments
my $heure_min = shift;
my $fuseau = uc(shift); # on le passe directement en majuscule, au cas ou
# check l'heure
if ($heure_min !~ /^\d{1,2}:\d{1,2}$/) {
die "Premier argument incorrecte: '$heure_min', doit etre une heure de la forme XX:YY\n";
}
# check le fuseau
if (not exists $decalage_fuseau{$fuseau}) {
die "Deuxieme argument incorrecte: '$fuseau', doit etre un fuseaux parmis ", join(", ", sort keys %decalage_fuseau), "\n";
}
# arguments ok
# on decoupe la date en heures et minutes
my ($heure, $min) = split(/:/, $heure_min);
# on converti tout en minutes
$min += 60*$heure;
#on soustrait le fuseau (qu'il faut convertir en minutes aussi), pour recuperer l'UTC:
$min -= 60*$decalage_fuseau{$fuseau};
# on a converti $fuseau en majuscules pour etre certain
# si ca sort du cadran on rajoute ou on soustrait 12 heures
if ($min < 0) {
# a priori impossible dans ce sens
$min += 12*60;
}
elsif ($min > 12*60) {
$min -= 12*60;
}
# on aurait pu faire ca avec un modulo
# on recupere les heures et minutes séparées
$heure = int($min/60);
$min -= 60*$heure;
# on affiche le tout:
printf("%02d:%02d", $heure, $min);

Message édité par pospos le 13-03-2004 à 20:05:34

_Faust_

Burn-out général

:ouch:

J'aurai pensé que c'était uniquement quelques lignes (genre 5-6 lignes...)

Un gros merci, je vais étudier ca attentivement.

Beaucoup de nouveau code, ca ressemble à un mélange de C et de Shell...

Encore merci!

pospos

ben c'est clair qu'on peut le faire plus court (et toujours clair pour un programmeur Perl), mais vu que tu es debutant en Perl je t'ais fait un truc avec une syntaxe genre C

Sinon si tu veux je t'en fais une regexp d'une ligne

_Faust_

Burn-out général

regexp? c'est quoi ce truc?

pospos

expression reguliere
ca n'est pas un langage mais un outil specifique à Perl, qui a depuis été rependu dans beaucoup d'autres langages, et qui défini une mini syntaxe permettant de traiter une chaine de caractere de maniere tres concise

_Faust_

Burn-out général

bordel...

ca me donne pas les bons résultats puisque je suis au Québec...

12:58 devrais me donner 9:58 PST

Publicité

pospos

ben tu modifie le decalage de fuseau selon tes besoins

my %decalage_fuseau = (
PST => -8,
MST => -7,
CST => -6,
EST => -5,
AST => -4,
NST => -3.5,
);

_Faust_

Burn-out général

Ouai, c'est ce que j'ai fait... par contre, pour avoir le bon résultat par exemple, j'ai mis NST -1.5, mais dans la réalité, il est 1h30 plus tard que chez moi...

enfin, ca doit être un détail...

pospos

je comprend pas trop ton histoire?
1.5h ca fait bien 1h30...

_Faust_

Burn-out général

oui! mais de mon fuseau à moi, il est +1.5 en NST et dans le script, j'ai mis -1.5 pour que ca fonctionne...

pospos

c'est normal, c'est le decalage par rapport à UTC (ou a ton crenaux), donc tu de deduit à l'heure donnée: ca se lit à l'envers

mais si tu prefere tu peux passer tout en positif et mettre "$min += 60*$decalage_fuseau{$fuseau};" au lieu de "$min -= 60*$decalage_fuseau{$fuseau};"

FORUM HardWare.fr

Programmation

Perl

Script perl qui convertit les fuseaux horaires

Sujets relatifs
script no robot ?!?	MySQL script d'update pour manip sur un tinyblob
Cherche aide sur GD librairie en perl	Script NEWS
[Perl] Traitement sur un array à partir de la référence de celui-ci	faire un petit script pour defrag mon pc & le couper ?
Perl a des bon jours devant lui ?	Script shell / e-mail
[HELP] script panier e-commerce......	[Perl] Net::Telnet vers une machine win32
Plus de sujets relatifs à : Script perl qui convertit les fuseaux horaires

Page générée en 0.045 secondes