Как добавить часы, минуты, секунды в Perl

Question

Я пытаюсь добавить часы, минуты и секунды в формате

HH:MM:SS 

и, кажется, добавляя правильно часы и секунды, но я изо всех сил в формате минуты. То, что я сделал, это преобразовать часы/минуты/секунды в секунды, суммировать их и переконвертировать. Вот мой код.

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"; 

Что я получаю:

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

Answer 1

Это, как правило, лучше использовать модули, такие как DateTime или Date :: Manip, чтобы сделать этот тип арифметики, но я предполагаю, что вы хотите узнать, как сделайте это (EDIT: на самом зачаточном уровне).

Убедитесь, что вы суммируете сумму до 0 до вашей петли. Вы должны сначала сделать по модулю на минут до деления:

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

EDIT: После того, как вы получите в такие вещи, как часовые пояса и летнее время, все становится очень сложным. Смотрите этот пост в качестве примера: Why is subtracting these two times (in 1927) giving a strange result?

Answer 2

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

Протокол вычисляется как сумма, деленной на 60. 13 часов плюс 10 минут равняется 790 минут. Почему бы не сделать что-то подобное с $ mins, как вы делаете с $ sec? (Возьмите модуль)

Answer 3

Просто используйте gmtime() и конвертировать ввод в считанные секунды в то, что когда-либо читаемый формат, который вы заинтересованы в.

gmtime() ==> Возвращаемые значения локализованы для стандартного часового пояса Гринвич.

Пример код

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

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

Если в вашем случае, если $ часов> 23, то пожалуйста, используйте $ yday переменные. $ yday это день года, в диапазоне 0..364 (или 0..365 в високосные годы).

Для преобразования в $ час умножаем его на 24, ==>$ час = ($ yday * 24) + $ hour;

Это будет работать, если разница меньше, чем 364 дней (или 0..365 в високосные годы.), Но вы все равно можете заставить его работать, добавив переменную ($ год-70) в уравнение, но он делает уравнение более сложным из-за високосных лет, надеюсь, теперь ясно, как его использовать ...