format elapsed time

format_time.pl

sub format_time {
    my $time = shift;

    use integer;

    my $formatted;
    for my $unit (["д", 60*60*24], ["ч", 60*60], ["м", 60], ["с", 1]) {

        my $res = $time / $unit->[1];

        if ($res > 0) {
            $formatted .= $res . $unit->[0] . " ";
            $time = $time % $unit->[1];
        }
    }

    return defined $formatted ? $formatted : "неизвестно";
}