ouyou5

ouyou5.pl

#!/usr/bin/env perl

use strict;
use warnings;

my @foods;

print "時間電卓です。時間と分を別々に入力して下さい。終わる時は、ENDを入力して下さい。\n";

my $total_hour = 0;
my $total_minutes = 0;

for (;;){
  print "'時間'入力して下さい>";
  my $h = <STDIN>;
  chomp $h;
  last if $h eq 'END';
  $total_hour += $h;

  print "'分'入力して下さい>";
  my $m = <STDIN>;
  chomp $m;
  last if $m eq 'END';
  $total_minutes += $m;
}

for (;$total_minutes >= 60; $total_minutes -= 60){
  $total_hour++;
}

print "\n合計は$total_hour時間$total_minutes分です。\n";