calcul de temps

**kylan** · 14/03/2015, 04h18

bonjour! je débute en Perl et j'aimerais solliciter votre aide pour mon script.

je veux faire un script en PERL qui additionne les heures données en paramètre.
Les paramètres sont en format XX:YY où XX qui est entre 0 et 99, et YY qui est entre 0 et 59.
et si je dépasse 24 heures, je dois donnez le résultat en jours .
Par exemple 22:04 9:03 va imprimer 1jours et 7:07 et

12:58 9:03 va imprimer 22:01.

voici ce que j'ai fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/usr/bin/perl
use feature "switch";
i($#ARGV!=1)
{
print "Erreur argument non valide->heure:minute
heure:minute\n";
exit 1;}
($heure,$minute)=split(":",$ARGV[1]);
($heure,$minute)=split(":",$ARGV[0]);
if (($heure<0)|| ($heure>99)) {
print "heure invalide\n";
exit 1;}
if (($minute<0)||($minute>59))
{print "minute invalide\n";
exit 1;}
$heure+=$heure;
$minute+=$minute;
print "$heure:$minute\n";
exit 0;

je suis perdu au niveau de l'addition des heures et des minutes. donc dans les 3 dernières lignes.
est ce que vous pouvez m'aider? merci

**dmganges** · 14/03/2015, 07h23

Bonjour,

Comme tu débutes, quelques impératifs :
indenter le code !
utiliser impérativement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
use warnings;
use strict;

potasser les doc tu peux commencer ICI et là

Tu débutes en Perl mais pas en arithmétique je suppose

Bon comme c'est ton premier message, une piste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
#!/usr/bin/perl
use warnings;
use strict;
use utf8;
 
my ( $J, $H, $M) = 0;
 
if($#ARGV!=1) {
	print "Erreur argument non valide->heure:minute heure:minute\n";
	exit 1;
}
 
my ($heure1,$minute1)=split(":",$ARGV[0]);
my ($heure2,$minute2)=split(":",$ARGV[1]);
 
if ($heure1<0 || $heure1>99) {
	print "heure1 invalide\n";
	exit 1;
}
if ($heure2<0 || $heure2>99) {
	print "heure2 invalide\n";
	exit 1;
}
if ($minute1<0 || $minute1 >59) {
	print "minute1 invalide\n";
	exit 1;
}
if ($minute2<0 || $minute2 >59) {
	print "minute2 invalide\n";
	exit 1;
}
 
$H = $heure1 + $heure2;
$M = $minute1 + $minute2;
print "\n$H:$M\n\n";
 
if ( $H >= 24 ) {
	$J = int ( $H / 24 );
	$H = $H % 24;
 
	if ( $M >= 60 ){
		$H = $H + int ($M /60);
		$M = $M % 60;
	} else {
		if ( $M >= 60 ){
			$H = $H + int ($M /60);
			$M = $M % 60;
		}
	}
	printf ('%d jour(s) %d:%02d', $J, $H, $M);
}	else {
	if ( $M >= 60 ){
		$H = $H + int ($M /60);
		$M = $M % 60;
	} else {
		if ( $M >= 60 ){
			$H = $H + int ($M /60);
			$M = $M % 60;
		}
	}
	printf ('%d:%02d', $H, $M);
}
exit 0;

J'espère n'avoir rien oublié...

On doit pouvoir faire plus Sioux, mais au moins c'est lisible !

% est l'opérateur modulo qui donne le reste de la division
int donne la partie entière de la division

**Lolo78** · 14/03/2015, 11h56

@ dmganges: j'ai l'impression (à première vue) que ton code se répète et ne comprends pas trop la raison. Erreur de copier-coller?

Par ailleurs, je pense qu'il faut convertir les minutes au-delà de 60 en heures avant de convertir les heures au-delà de 24 en jours, car la conversion des minutes au-delà de 60 en heures est susceptible de faire passer le nombre d'heures au-delà de 24.

(J'écris "au-delà" en simplifiant pour signifier supérieur ou égal.)

**dmganges** · 14/03/2015, 13h21

@ Lolo78
Il ne me semble pas qu'il puisse y avoir débordement car au départ le créneau des 2 paramètres est bien limité :

Envoyé par kylan

Les paramètres sont en format XX:YY où XX qui est entre 0 et 99, et YY qui est entre 0 et 59.

Mais tu as raison il est plus logique de commencer par les minutes...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
#!/usr/bin/perl
use warnings;
use strict;
use utf8;
 
my ( $J, $H, $M) = 0;
 
if($#ARGV!=1) {
	print "Erreur argument non valide->heure:minute heure:minute\n";
	exit 1;
}
 
my ($heure1,$minute1)=split(":",$ARGV[0]);
my ($heure2,$minute2)=split(":",$ARGV[1]);
 
if ($heure1<0 || $heure1>99) {
	print "heure1 invalide\n";
	exit 1;
}
if ($heure2<0 || $heure2>99) {
	print "heure2 invalide\n";
	exit 1;
}
if ($minute1<0 || $minute1 >59) {
	print "minute1 invalide\n";
	exit 1;
}
if ($minute2<0 || $minute2 >59) {
	print "minute2 invalide\n";
	exit 1;
}
 
$H = $heure1 + $heure2;
$M = $minute1 + $minute2;
print "\n$H:$M\n\n";
 
 
if ( $M >= 60 ) {
	$H = $H + int ( $M / 60 );
	$M = $M % 60;
}
 
if ( $H < 24 ) {
	printf ('%d:%02d', $H, $M);
} else {
	my $J = int ($H / 24);
	$H = $H % 24;
	printf ('%d jour(s) %d:%02d', $J, $H, $M);
}
 
exit 0;

et c'est plus clair

**kylan** · 14/03/2015, 17h00

merci de votre aide!

**Lolo78** · 14/03/2015, 17h01

Envoyé par dmganges

@ Lolo78
Il ne me semble pas qu'il puisse y avoir débordement car au départ le créneau des 2 paramètres est bien limité. [...]

Je pensais à un cas de figure illustré par l'exemple suivant:
23:45 + 00:30 = 23:75

Si tu commences par diviser les heures par 24, tu n'as pas un jour entier, le nombre de jour est 0. Ensuite tu traites les minutes et ton code initial obtient 24:15. Mais tu as déjà traité les heures, c'est trop tard pour les retraiter. C'est pour cela qu'il vaut mieux commencer par traiter les minutes, ce qui conduit à incrémenter l'heure; ensuite on constate qu'il y a un jour entier, et on obtient la valeur 01:00:15 (et non 00:24:15).

Le nouveau code que tu as posté corrige ce cas de figure.

**dmganges** · 14/03/2015, 17h28

EXACT Lolo78 !
MERCI pour ta vigilance !

**Philou67430** · 16/03/2015, 16h30

Un détail, mais ceci :

Envoyé par dmganges

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
my ( $J, $H, $M) = 0;

ne fait pas ce que l'on pourrait croire (initialiser à 0 les trois variables $J, $H, $M).
Il n'initialise que $J. Pour tout initialiser, il faut écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
my ( $J, $H, $M) = (0, 0, 0);

ou encore :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
my ( $J, $H, $M) = (0) x 3;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
$ perl -E 'my ($a, $b) = 0; say "a=[", $a // "UNDEF", "]", " b=[", $b // "UNDEF", "]";'
a=[0] b=[UNDEF]

**dmganges** · 16/03/2015, 17h23

MERCI Philou67430, tu as bien raison :
Plus j'apprends, et plus je mesure mon ignorance.

Celle-là j'aurais cherché longtemps !
Mais à la relecture, ça me paraît maintenant évident.

Sauf erreur (encore) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

my ( $J, $H, $M) = ();

met les 3 à UNDEF ?

C'est quoi l'astuce ?

**Lolo78** · 16/03/2015, 18h56

Même simplement:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
my ( $J, $H, $M);

met les trois variables à undef (non initialized).

Si tu écris:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
my ( $J, $H, $M) = (0);

$J vaudra 0, la première (et seule en l'occurrence) de la liste et les deux autres variables seront à undef car il n'y a pas de valeur leur correspondant..

De même, si tu écris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
my ( $J, $H, $M) = ();

Perl va cherche la première valeur de la liste à droite de l'affectation pour initialiser $J, mais comme il n'y a aucune valeur à droite, les trois variables seront à undef (c'est-à-dire qu'elle n'ont pas été initialisée à une quelconque valeur). Mais il est plus simple d'écrire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
my ( $J, $H, $M);

**dmganges** · 16/03/2015, 19h19

Merci Lolo78 !
En fait merci à vous deux.

En regardant des exemples d'initialisation, j'avais souvent vu :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

my ( $J, $H, $M) = ();

que j'utilisai par habitude, facilité et sans me poser la question de ce qui se passait derrière.
D'où ma confusion et mes erreurs.

Mais c'est trompeur !

Effectivement la syntaxe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

my ( $J, $H, $M);

est non seulement plus simple, mais elle évite la confusion, enfin pour moi !

Mais j'aurais quand même pu faire le lien avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

my ($J, $H) = split / /, "12H30");

où ici $H = UNDEF

Bon je dormirai mieux cette nuit

MERCI !

**Philou67430** · 17/03/2015, 09h06

Encore un conseil : si tu as besoin de récupérer 2 informations d'un split (et seulement 2), tu peux utiliser split à 3 paramètres.

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
$ perl -E '
my ($M, $S) = split /[:\.]/, "12:30.000";
say "Minutes : $M";
say "Secondes : $S";
($M, $S) = split /[:\.]/, "12:30.000", 2;
say "Minutes : $M";
say "Secondes : $S";'
Minutes : 12
Secondes : 30
Minutes : 12
Secondes : 30.000

**dmganges** · 17/03/2015, 09h48

MERCI Philou67430 !

Juste pour rire et seulement si tu as le temps, car moi plus personne ne me bouscule...

Dans le même ordre d'idée, et sans faire une usine à gaz,
y aurait-il la possibilité dans un split de récupérer celui (ou ceux) d'une position particulière ?

**Philou67430** · 17/03/2015, 10h53

oui, bien sûr, si tu veux seulement les secondes, tu écris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

my $s = (split /[:\.]/, "12:14.000")[1]

DWYM

**dmganges** · 17/03/2015, 10h58

Superbe !
je n'y aurai jamais pensé.

j'aurai bien apprécié un langage comme Perl il y a 30 ans

MERCI

**Philou67430** · 17/03/2015, 11h48

J'ai commencé à utiliser perl 5.004 ou 5.005 quand j'ai trouvé que awk était trop limité... en 1998 tout de même

Mais perl est né en 1987, il n'a donc pas encore 30 ans, c'est vrai... Cela dit, le fait qu'il n'ait pas existé plus tôt n'enlève rien au bonheur de l'utiliser aujourd'hui.

**dmganges** · 17/03/2015, 12h45

Ben moi pareil j'ai connu Perl aux environs de 1995 avec la 5.005 ayant découvert Unix en 1990.
Avant pas question, j'étais sur DPS8 & BDD DMIV un modèle réseau.
Je n'ai utilisé Perl qu'occasionnellement et de manière rudimentaire pour extraire des données de fichiers... mon univers était avant tout Adm Unix/Oracle.
Là à la retraite il me faut occuper mes méninges ne serait-ce que pour fuir les informations nauséabondes.
Je saute donc du coq à l'âne pour les petits besoins perso que je m'invente, toujours sans prétention mais aussi et surtout sans vergogne, d'où mes questions souvent anodines et puériles...
Mais qui me donnent l'occasion d'échanger avec des personnes sympas !
Encore MERCI !
@+

**Philou67430** · 17/03/2015, 16h06

Pas encore à la retraite (le serais-je seulement un jour), mais des envies de freelancing en perl... je m'invente aussi des petits besoins en perl, histoire d'oublier que mon emploi d'informaticien n'a plus grand chose à voir avec mon métier d'ingénieur informatique.

Et moi aussi, j'ai connu les lessiveuses (disques durs des serveurs de l'école qui devaient faire à l'époque 512Mo, ou moins ...), Windows 1, et même les cartes perforées (mais là, c'était la vraiment la fin).