Discussion :

[kylan]

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]

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]

@ 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]

@ 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é :

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]

merci de votre aide!

[Lolo78]

@ 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]

EXACT Lolo78 !
MERCI pour ta vigilance !

[Philou67430]

Un détail, mais ceci :

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]

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 ?