Antes precisamos entender dois conceitos importantes: horários e durações. Considere as frases abaixo:
- A reunião foi às duas horas da tarde
- O filme tem duas horas de duração
No primeiro caso, "duas horas" é um horário: um momento específico do dia.
No segundo caso, "duas horas" é uma duração: uma quantidade de tempo, não necessariamente relacionada a um horário específico (não é dito que horas começa ou termina, nem sequer é dito se ele de fato foi assistido).
O que pode confundir é que ambos usam as mesmas palavras (horas, minutos, segundos) e até mesmo a forma de exibição pode ser a mesma (um relógio mostra "02:00" quando são 2 horas, um cronômetro mostra "02:00" quando já se passaram 2 horas). Mas eles são conceitos diferentes.
Dito isso, strftime
serve para trabalhar com datas/horas, mas não com durações.
Uma forma de resolver é fazer os cálculos manualmente. Como você tem uma duração em segundos e quer quebrá-la em horas e segundos, bastaria fazer isso:
$total_seconds = 7200;
$hours = $total_seconds / 60;
$seconds = $total_seconds % 60;
printf "%02d:%02d\n", $hours, $seconds; # 120:00
Ou, se quer guardar o valor formatado em uma variável:
$total_seconds = 7200;
$hours = $total_seconds / 60;
$seconds = $total_seconds % 60;
# a variável $formatado terá como valor a string "120:00"
$formatado = sprintf "%02d:%02d", $hours, $seconds;
Obs: para trabalhar com durações também existem os módulos DateTime::Duration
e DateTime::Format::Duration
. Antes certifique-se que os módulos estão instalados, usando o cpan
:
cpan DateTime::Duration
cpan DateTime::Format::Duration
Estes comandos verificam se os módulos estão instalados, e caso não esteja, já faz a instalação automaticamente.
Depois bastaria usá-los para criar a duração e formatá-la. O problema é que eles não conseguem tratar o caso em que a quantidade de minutos é maior que 60:
use DateTime::Duration;
use DateTime::Format::Duration;
sub formatar {
my ($seconds) = @_;
my $duration = DateTime::Duration->new(seconds => $seconds);
my $df = DateTime::Format::Duration->new(pattern => '%M:%S', normalize => 1);
print $df->format_duration($duration);
}
# ok
formatar(125); # 02:05
# não ok
formatar(7200); # 00:00
Isso ocorre porque a normalização faz com que 7200 segundos se transforme em 2 horas, zero minutos e zero segundos (já sem a normalização nenhum dos casos funciona, pois ele mantém o valor dos segundos como está). Então a única opção para ter o resultado que você quer é fazer as contas manualmente mesmo.