Discussion :

[DelphLaga]

Bonjour,

J'ai une variable qui correspond à des secondes, Je souhaite transformer cette valeur en heure/minutes/secondes ...
Est ce que vous pouvez m'orienter sur la démarche à suivre ?
Merci je susi sure que c'est très très bête mais là tout de suite je vois pas ...
Merci

[2Eurocents]

J'ai une variable qui correspond à des secondes, Je souhaite transformer cette valeur en heure/minutes/secondes ...
Est ce que vous pouvez m'orienter sur la démarche à suivre ?

Code :

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

1
2
3
4
5
$duree=75654; # en secondes
 
$heures=int($duree / 3600);
$minutes=int(($duree % 3600) / 60);
$secondes=int((($duree % 3600) % 60));

Merci je susi sure que c'est très très bête mais là tout de suite je vois pas ...

Et maintenant ?

[MarneusCalgarXP]

C'est plus une question de maths que de perl...

sachant que 1 minute = 60 secondes et que 1 heure = 60 minutes, voila le résultat:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
my $totalsecondes = 1324324;
 
my $secondes = $totalsecondes % 60;
my $minutes = ($totalsecondes / 60) % 60;
my $heures = ($totalsecondes / (60 * 60));
 
printf("%d secondes correspondent à %02d:%02d:%02d\n", 
	($totalsecondes, 
	 $heures, 
	 $minutes, 
	 $secondes));

et ca affiche le résultat

Code :

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

1324324 secondes correspondent à 367:52:04

[DelphLaga]

Oui en effet :-) pas très compliqué juste une question de math comme tu dis :-)

Merci :-))

[MarneusCalgarXP]

héhé, n'oublie pas,

[GnuVince]

Pour éviter de le faire à main: http://search.cpan.org/~jhi/perl-5.7...ece/Seconds.pm

[Jedai]

Pour éviter de le faire à main: http://search.cpan.org/~jhi/perl-5.7...ece/Seconds.pm

Il y a parfois des cas où importer un module est un peu exagéré....

--
Jedaï

[specialfox]

Bonjour,

Merci pour ce script qui me sert bien pour la supervision réseau car pratiquement toutes les valeurs sont récupérables en snmp en secondes.

Par contre n'étant pas un exepert en Perl que signifie le % dans la ligne suivante :

Code :

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

my $secondes = $totalsecondes % 60;

Merci Guillaume

[Alcatîz]

Bonjour,

% est le modulus, c'est-à-dire le reste de la division entière.