一道關於停車計費的問題

程序容許30分鐘，期間要求用戶輸入來模擬車輛進入、出去的行爲

輸入的內容爲一串字符串，每一個不一樣的字符串表明一輛車.

紀錄全部車每次進出的時間，計算時間、次數和價格.

價格依照價格表，階梯訂價：頭10分鐘5元，超過10分鐘的每分鐘5元

程序運行30分鐘自動退出，程序退出前還沒出庫的車，收費200元

程序最後統計全部車輛的狀況：次數，每次時間，總時間，總價

code:

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use Time::Local;
use POSIX qw{strftime};
my (%hash,%count)=();
my $start_time = time;
sub p_money{  #計算費用
    my $time = shift;
   return 5 if $time <= 600;
   if ($time>600 and $time<1800){
    my $min;
     $time%60==0?$min = ($time-600)/60:$min= int( ($time-600)/60 +1);
        my $mon_minute = 5+$min*5;
       return $mon_minute;
   }
}
my (@arr,$end_time);
while(1){
    my ($start);
   $end_time=time;
print  "Car Number :";
   eval{
local $SIG{ALRM}=sub {die "timeout\n";};
  alarm(5);
    chomp( $start = <>);        #此處設施中斷  5秒內沒有用戶輸入就繼續循環，
    push @{$hash{$start}},time;
    $count{$start}++ if defined $start;
    alarm(0);
   };
if ($end_time-$start_time>20){   #這裏程序運行20秒，則退出循環，打印車輛的費用
        for (sort keys %hash){
my $stop_time = time()-$hash{$_}[0];
        my $car_start_time = strftime("%Y-%m-%d %H:%M:%S", localtime($hash{$_}[0]));
        my $car_stop_time = strftime("%Y-%m-%d %H:%M:%S", localtime(time));
        push @arr,"$_\t$car_start_time $car_stop_time $stop_time\t200\n";
        }
   print "\n車號\t開始時間\t離開時間\t停車時間\t價格\n";
   print @arr;
        exit;
    }
   if(defined $start  and  ($count{$start}||0) >1 ){
        push @{$hash{$start}},time;
        my $stop_time = $hash{$start}[-1]-$hash{$start}[0];
        my $car_money = p_money $stop_time;
        my $car_start_time = strftime("%Y-%m-%d %H:%M:%S", localtime($hash{$start}[0]));
        my $car_stop_time = strftime("%Y-%m-%d %H:%M:%S", localtime($hash{$start}[-1]));
        push @arr, "$start\t$car_start_time $car_stop_time $stop_time\t$car_money\n";
        delete $count{$start}; #刪除 出庫車輛
        delete $hash{$start};
        redo;  #繼續等待用戶輸入
    }else{
        redo;
    }
}

結果：