code:

1. #!/usr/bin/perl  
2. use strict;  
3. use warnings;  
4. use Data::Dumper;  
5. use Time::Local;  
6. use POSIX qw{strftime};  
7. my (%hash,%count)=();  
8. my $start_time = time;  
9. sub p_money{  #计算费用  
10.     my $time = shift;  
11.    return 5 if $time <= 600;  
12.    if ($time>600 and $time<1800){  
13.     my $min;  
14.      $time%60==0?$min = ($time-600)/60:$min= int( ($time-600)/60 +1);  
15.         my $mon_minute = 5+$min*5;  
16.        return $mon_minute;  
17.    }  
18. }  
19. my (@arr,$end_time);  
20. while(1){  
21.     my ($start);  
22.    $end_time=time;  
23. print  "Car Number :";  
24.    eval{  
25. local $SIG{ALRM}=sub {die "timeout\n";};  
26.   alarm(5);  
27.     chomp( $start = <>);        #此处设施中断  5秒内没有用户输入就继续循环，  
28.     push @{$hash{$start}},time;  
29.     $count{$start}++ if defined $start;  
30.     alarm(0);  
31.    };  
32. if ($end_time-$start_time>20){   #这里程序运行20秒，则退出循环，打印车辆的费用  
33.         for (sort keys %hash){  
34. my $stop_time = time()-$hash{$_}[0];  
35.         my $car_start_time = strftime("%Y-%m-%d %H:%M:%S", localtime($hash{$_}[0]));  
36.         my $car_stop_time = strftime("%Y-%m-%d %H:%M:%S", localtime(time));  
37.         push @arr,"$_\t$car_start_time $car_stop_time $stop_time\t200\n";  
38.         }  
39.    print "\n车号\t开始时间\t离开时间\t停车时间\t价格\n";  
40.    print @arr;  
41.         exit;  
42.     }  
43.    if(defined $start  and  ($count{$start}||0) >1 ){  
44.         push @{$hash{$start}},time;  
45.         my $stop_time = $hash{$start}[-1]-$hash{$start}[0];  
46.         my $car_money = p_money $stop_time;  
47.         my $car_start_time = strftime("%Y-%m-%d %H:%M:%S", localtime($hash{$start}[0]));  
48.         my $car_stop_time = strftime("%Y-%m-%d %H:%M:%S", localtime($hash{$start}[-1]));  
49.         push @arr, "$start\t$car_start_time $car_stop_time $stop_time\t$car_money\n";  
50.         delete $count{$start}; #删除 出库车辆  
51.         delete $hash{$start};  
52.         redo;  #继续等待用户输入  
53.     }else{  
54.         redo;  
55.     }  
56. }  

结果：

本文转自 mcshell 51CTO博客，原文链接：http://blog.51cto.com/mcshell/1151580，如需转载请自行联系原作者