Search Results

It seems it does work.
or can you explain what you expect for the result exactly?

I hope this code helps you.

#!/usr/bin/perl
use warnings;
use strict;

my %programs;

while (my $line = <DATA>) {
chomp $line;
my( $company, $site, $program, $product, $price) =...

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 ?...

I think this is the algorithm problem rather than the lagnauge.
What about implementing it manually.


#!/usr/bin/perl
use 5.010;

use warnings;
use strict;

sub round_by_five {
my...