How to add hours,minutes,seconds in perl

Question

I am trying to add hours, minutes and seconds in the format

HH:MM:SS

and the hours and seconds seem to be adding correctly, but I am struggling to format the minutes. What I have done is convert the hours/minutes/seconds to seconds, sum them and the reconvert. Here is my code.

 use strict;
 use warnings;


 my @total_sum = qw(10:07:03 01:01:01 02:02:02);

 my ($sum, $hrs, $mins, $sec);

         for my $t (@total_sum) {

                my ($h, $m, $s) = split /:/, $t;

                my $hm = $h*3600;
                my $tm = $m*60;


                $sum = $sum + $hm + $tm + $s;
         }

         $sec = sprintf ("%02d", $sec = $sum%60);
         $mins = int($sum/60);
         $hrs = int($sum/3600);

         print "$hrs:$mins:$sec\n";

What I am getting is:

         13:790:06   instead of 
         13:10:06

score 4 · Accepted Answer · edited May 23 '17 at 12:18

4

It is usually better to use modules like DateTime or Date::Manip to do this type of arithmetic, but I guess you want to learn how to do this (EDIT: at the most rudimentary level).

Make sure you intialize sum to 0 before your loop. You need to first do a modulo on the minutes before dividing:

$sec = sprintf ("%02d", $sum%60);
$mins = sprintf("%02d", ($sum%3600)/60);
$hrs = int($sum/3600);

EDIT: Once you get into things like time zones and daylight savings, things get very complicated. See this post as an example: Why is subtracting these two times (in 1927) giving a strange result?

edited May 23 '17 at 12:18

Community

1
1

answered Apr 15 '13 at 16:17

imran

1,560
10
8

2

The reason to use DateTime is that it makes you aware that not all minutes have 60 seconds. So if he "wants to learn", you should have mentioned this. – ikegami Apr 15 '13 at 16:26
@ikegami added the caveat. – imran Apr 15 '13 at 16:35
Thanks @imran. Unfortunately I cannot use this Date modules, which I guess are helpful. – TheBlackCorsair Apr 16 '13 at 10:57

score 2 · Answer 2 · answered Apr 15 '13 at 16:18

     $sec = sprintf ("%02d", $sec = $sum%60);
     $mins = int($sum/60);
     $hrs = int($sum/3600);

Minutes is being calculated as the sum divided by 60. 13 hours plus 10 minutes equals 790 minutes. Why not do something similar with $mins as you are doing with $sec? (Take the modulus)

Jerry James · Answer 3 · 2017-10-20T14:19:27.357

Just use gmtime() and convert input in seconds into what ever readable format you are interested in.

gmtime() ==> Returned values are localized for the standard Greenwich time zone.

Sample code

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime($sum);

print "$hour:$min:$sec\n";;

If in your case if $hour > 23, then please use $yday variable. $yday is the day of the year, in the range 0..364 (or 0..365 in leap years.)

For converting into $hour multiply it with 24, ==> $hour = ($yday * 24) + $hour;

It will work if your difference is less than 364 days (or 0..365 in leap years.), But you can still make it work by adding variable ($year-70) into the equation, but it make equation more complicated because of leap years, hope now it's clear how to use it...

Its do work for that just use $yday, variable, its count the day passed... upto 365 days it will work... If you required more more than that then use ($year - 70) * 365, based in leap year can change number of day... Please see the answer https://stackoverflow.com/a/46848883/1760065 — Jerry James, Oct 20 '17 at 13:59

How to add hours,minutes,seconds in perl

3 Answers3

Linked