Mega Code Archive

 

Categories / Perl / Data Type

 

Splitting Time

#!/usr/bin/perl use warnings; use strict; my ($hours, $minutes, $seconds) = secs2hms(3723); print "3723 seconds is $hours hours, $minutes minutes and $seconds seconds"; print "\n"; sub secs2hms {     my ($h,$m);     my $seconds = shift;     $h = int($seconds/(60*60)); $seconds %= 60*60;     $m = int($seconds/60); $seconds %= 60;     ($h,$m,$seconds); }