举个栗子

马辰龙De技术分享
posts - 21, comments - 0, trackbacks - 0, articles - 0
  博客园 :: 首页 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理

公告

一道关于停车计费的问题

Posted on 2016-07-11 10:53 ChenlongMa 阅读(...) 评论(...) 编辑 收藏
程序允许30分钟,期间要求用户输入来模拟车辆进入、出去的行为
输入的内容为一串字符串,每个不同的字符串代表一辆车.
纪录所有车每次进出的时间,计算时间、次数和价格.
价格依照价格表,阶梯定价:头10分钟5元,超过10分钟的每分钟5元
程序运行30分钟自动退出,程序退出前还没出库的车,收费200元
程序最后统计所有车辆的情况:次数,每次时间,总时间,总价
#!/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;  
    }  
}