Shell Programming and Scripting

#!/usr/bin/perl
use 5.010;

use warnings;
use strict;

sub round_by_five {
    my ($hour, $min, $sec) = @_;

    my $tot = $min * 60 + $sec;
    my $rem = $tot % 300;
    return (
        $hour,
        $rem >= 150 ? ($tot+300-$rem)/60 : ($tot-$rem)/60,
        0
    );
}

say join ",", round_by_five(23, 52, 30);
say join ",", round_by_five(23, 50, 01);

use 5.010;

use warnings;
use strict;

sub round_by_five {
    my ($hour, $min, $sec) = @_;

    my $tot = $min * 60 + $sec;
    my $rem = $tot % 300;

    my $new_min = $rem >= 150 ? ($tot+300-$rem)/60 : ($tot-$rem)/60 ;

    return $new_min == 60
        ? ($hour+1, 0, 0)
        : ($hour, $new_min, 0)
        ;
}

say join ",", round_by_five(23, 52, 30);
say join ",", round_by_five(23, 50, 01);
say join ",", round_by_five( 7, 59, 59);
say join ",", round_by_five( 7,  1, 30);